home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 1997 #3 / Amiga Plus CD - 1997 - No. 03.iso / pd / programmierung / alienbreed3d2_src / cheesesauce / objdrawhires.s < prev    next >
Text File  |  1997-01-31  |  66KB  |  4,706 lines
  1.  
  2. currzone: dc.w 0
  3.  
  4. ty3d: dc.l -100*1024
  5. by3d: dc.l 1*1024
  6.  
  7. TOPOFROOM: dc.l 0
  8. BOTOFROOM: dc.l 0
  9. AFTERWATTOP: dc.l 0
  10. AFTERWATBOT: dc.l 0
  11. BEFOREWATTOP: dc.l 0
  12. BEFOREWATBOT: dc.l 0
  13. ROOMBACK: dc.l 0
  14.  
  15. objclipt: dc.w 0
  16. objclipb: dc.w 0
  17. rightclipb: dc.w 0
  18. leftclipb: dc.w 0
  19.  
  20. ObjDraw:
  21.  
  22.  move.w (a0)+,d0
  23.  cmp.w #1,d0
  24.  blt.s beforewat
  25.  beq.s afterwat
  26.  bgt.s fullroom
  27.  
  28. beforewat:
  29.  move.l BEFOREWATTOP,ty3d
  30.  move.l BEFOREWATBOT,by3d
  31.  bra.s donetopbot
  32.  
  33. afterwat:
  34.  move.l AFTERWATTOP,ty3d
  35.  move.l AFTERWATBOT,by3d
  36.  bra.s donetopbot
  37.  
  38. fullroom:
  39.  move.l TOPOFROOM(pc),ty3d
  40.  move.l BOTOFROOM(pc),by3d
  41.  
  42. donetopbot:
  43.  
  44. ; move.l (a0)+,by3d
  45. ; move.l (a0)+,ty3d
  46.  
  47.  movem.l d0-d7/a1-a6,-(a7)
  48.  
  49.  move.w rightclip,d0
  50.  sub.w leftclip,d0
  51.  subq #1,d0
  52.  ble doneallinfront 
  53.  
  54. ; CACHE_ON d6
  55.  
  56.  move.l ObjectData,a1
  57.  move.l #ObjRotated,a2
  58.  move.l #depthtable,a3
  59.  move.l a3,a4
  60.  move.w #79,d7
  61. emptytab:
  62.  move.l #$80010000,(a3)+
  63.  dbra d7,emptytab
  64.  
  65.  moveq #0,d0
  66. insertanobj
  67.  move.w (a1),d1
  68.  blt sortedall
  69.  move.w GraphicRoom(a1),d2
  70.  cmp.w currzone(pc),d2
  71.  beq.s itsinthiszone 
  72.  
  73. notinthiszone:
  74.  adda.w #64,a1
  75.  addq #1,d0
  76.  bra insertanobj
  77.  
  78. itsinthiszone:
  79.  
  80.  move.b DOUPPER,d4
  81.  move.b ObjInTop(a1),d3
  82.  eor.b d4,d3
  83.  bne.s notinthiszone
  84.  
  85.  move.w 2(a2,d1.w*8),d1    ; zpos
  86.  
  87.  move.l #depthtable-4,a4
  88. stillinfront:
  89.  addq #4,a4
  90.  cmp.w (a4),d1
  91.  blt stillinfront
  92.  move.l #enddepthtab-4,a5
  93. finishedshift
  94.  move.l -(a5),4(a5)
  95.  cmp.l a4,a5
  96.  bgt.s finishedshift
  97.  
  98.  move.w d1,(a4)
  99.  move.w d0,2(a4)
  100.  
  101.  adda.w #64,a1
  102.  addq #1,d0
  103.  
  104.  bra insertanobj
  105.  
  106. sortedall:
  107.  
  108.  move.l #depthtable,a3
  109.  
  110. gobackanddoanother
  111.  move.w (a3)+,d0
  112.  blt.s doneallinfront
  113.  
  114.  move.w (a3)+,d0
  115.  bsr DrawtheObject
  116.  bra gobackanddoanother
  117.  
  118. doneallinfront
  119.  
  120.  movem.l (a7)+,d0-d7/a1-a6
  121.  rts
  122.  
  123. depthtable: ds.l 80
  124. enddepthtab:
  125.  
  126. DrawtheObject:
  127.  
  128.  movem.l d0-d7/a0-a6,-(a7)
  129.   
  130.  move.l ObjectData,a0
  131.  move.l #ObjRotated,a1
  132.  asl.w #6,d0
  133.  adda.w d0,a0
  134.  
  135.  move.b ObjInTop(a0),IMINTHETOPDAD
  136.  
  137.  move.w (a0),d0
  138.  move.w 2(a1,d0.w*8),d1    ; z pos
  139.  
  140. ; Go through clip pts to see which
  141. ; apply.
  142.  
  143. ; move.w #0,d2    ; leftclip
  144. ; move.w #96,d3  ; rightclip
  145.  
  146. ; move.l EndOfClipPt,a6
  147. ;checkclips:
  148. ; subq #8,a6
  149. ; cmp.l #ClipTable,a6
  150. ; blt outofcheckclips
  151.  
  152. ; cmp.w 2(a6),d1
  153. ; bgt.s cantleft
  154. ; move.w (a6),d4
  155. ; cmp.w d4,d2
  156. ; bgt.s cantleft
  157. ; move.w d4,d2
  158. ;cantleft:
  159.  
  160. ; cmp.w 6(a6),d1
  161. ; bgt.s cantright
  162. ; move.w 4(a6),d4
  163. ; cmp.w d4,d3
  164. ; blt.s cantright
  165. ; move.w d4,d3
  166. ;cantright:
  167.  
  168. ;outofcheckclips:
  169.  
  170. ; move.w d2,leftclipb
  171. ; move.w d3,rightclipb
  172.  
  173.  move.w leftclip,d0
  174.  asr.w #1,d0
  175.  move.w d0,leftclipb
  176.  move.w rightclip,d0
  177.  asr.w #1,d0
  178.  move.w d0,rightclipb
  179.  
  180.  cmp.b #$ff,6(a0)
  181.  bne BitMapObj
  182.  
  183.  bsr PolygonObj
  184.  movem.l (a7)+,d0-d7/a0-a6
  185.  rts
  186.  
  187. glassobj:
  188.  move.w (a0)+,d0    ;pt num
  189.  move.w 2(a1,d0.w*8),d1
  190.  cmp.w #25,d1
  191.  ble objbehind
  192.  
  193.  move.w topclip,d2
  194.  move.w botclip,d3
  195.  
  196.  move.l ty3d,d6
  197.  sub.l yoff,d6
  198.  divs d1,d6
  199.  add.w MIDDLEY,d6
  200.  cmp.w d3,d6
  201.  bge objbehind
  202.  cmp.w d2,d6
  203.  bge.s .okobtc
  204.  move.w d2,d6
  205. .okobtc:
  206.  move.w d6,objclipt
  207.  
  208.  move.l by3d,d6
  209.  sub.l yoff,d6
  210.  divs d1,d6
  211.  add.w MIDDLEY,d6
  212.  cmp.w d2,d6
  213.  ble objbehind
  214.  cmp.w d3,d6
  215.  ble.s .okobbc
  216.  move.w d3,d6
  217. .okobbc:
  218.  move.w d6,objclipb
  219.  
  220.  move.l 4(a1,d0.w*8),d0
  221.  move.l (a0)+,d2    ; height
  222.  ext.l d2
  223.  asl.l #7,d2
  224.  sub.l yoff,d2
  225.  divs d1,d2    
  226.  add.w MIDDLEY,d2
  227.  
  228.  divs d1,d0
  229.  add.w MIDDLEX,d0    ;x pos of middle
  230.  
  231. ; Need to calculate:
  232. ; Width of object in pixels
  233. ; height of object in pixels
  234. ; horizontal constants
  235. ; vertical constants.
  236.  
  237.  move.l #consttab,a3
  238.  
  239.  moveq #0,d3
  240.  moveq #0,d4
  241.  move.b (a0)+,d3
  242.  move.b (a0)+,d4
  243.  asl.w #7,d3
  244.  asl.w #7,d4
  245.  divs d1,d3 ;width in pixels
  246.  divs d1,d4 ;height in pixels
  247.  sub.w d4,d2
  248.  sub.w d3,d0
  249.  cmp.w rightclipb,d0
  250.  bge objbehind
  251.  add.w d3,d3
  252.  cmp.w objclipb,d2
  253.  bge objbehind
  254.  
  255.  add.w d4,d4
  256.  
  257.  move.w d3,realwidth
  258.  move.w d4,realheight
  259.  
  260. * OBTAIN POINTERS TO HORIZ AND VERT
  261. * CONSTANTS FOR MOVING ACROSS AND
  262. * DOWN THE OBJECT GRAPHIC.
  263.  
  264.  move.w d1,d7
  265.  moveq #0,d6
  266.  move.b 6(a0),d6
  267.  add.w d6,d6
  268.  mulu d6,d7
  269.  move.b -2(a0),d6
  270.  divu d6,d7
  271.  swap d7
  272.  clr.w d7
  273.  swap d7
  274.  
  275.  lea (a3,d7.l*8),a2    ; pointer to
  276.             ; horiz const
  277.  move.w d1,d7
  278.  move.b 7(a0),d6
  279.  add.w d6,d6
  280.  mulu d6,d7
  281.  move.b -1(a0),d6
  282.  divu d6,d7
  283.  swap d7
  284.  clr.w d7
  285.  swap d7
  286.  lea (a3,d7.l*8),a3    ; pointer to
  287.              ; vertical c.
  288.  
  289. * CLIP OBJECT TO TOP AND BOTTOM
  290. * OF THE VISIBLE DISPLAY
  291.  
  292.  moveq #0,d7
  293.  cmp.w objclipt,d2
  294.  bge.s .objfitsontop
  295.  
  296.  sub.w objclipt,d2
  297.  add.w d2,d4    ;new height in
  298.         ;pixels
  299.  ble objbehind  ; nothing to draw
  300.  
  301.  move.w d2,d7
  302.  neg.w d7    ; factor to mult.
  303.          ; constants by
  304.          ; at top of obj.
  305.  move.w objclipt,d2
  306.  
  307. .objfitsontop:
  308.  
  309.  move.w objclipb,d6
  310.  sub.w d2,d6
  311.  cmp.w d6,d4
  312.  ble.s .objfitsonbot
  313.  
  314.  move.w d6,d4
  315.  
  316. .objfitsonbot:
  317.  
  318.  subq #1,d4
  319.  blt objbehind
  320.  
  321.  move.l #ontoscr,a6
  322.  move.l (a6,d2.w*4),d2
  323.  
  324.  add.l FASTBUFFER,d2
  325.  move.l d2,toppt
  326.  
  327.  move.l #WorkSpace,a5
  328.  move.l #glassball,a4
  329.  cmp.w leftclipb,d0
  330.  bge.s .okonleft
  331.  
  332.  sub.w leftclipb,d0
  333.  add.w d0,d3
  334.  ble objbehind
  335.  
  336.  move.w (a2),d1
  337.  move.w 2(a2),d2
  338.  neg.w d0
  339.  muls d0,d1
  340.  mulu d0,d2
  341.  swap d2
  342.  add.w d2,d1
  343.  asl.w #7,d1
  344.  lea (a5,d1.w),a5
  345.  lea (a4,d1.w),a4
  346.  
  347.  move.w leftclipb,d0
  348.  
  349. .okonleft:
  350.  
  351.  move.w d0,d6
  352.  add.w d3,d6
  353.  sub.w rightclipb,d6
  354.  blt.s .okrightside
  355.  
  356.  sub.w #1,d3
  357.  sub.w d6,d3
  358.  
  359. .okrightside:
  360.  
  361.  move.l #objintocop,a1
  362.  sub.l a1,a1
  363.  move.w d0,a1
  364.  add.w a1,a1
  365.  
  366.  move.w (a3),d5
  367.  move.w 2(a3),d6
  368.  muls d7,d5
  369.  mulu d7,d6
  370.  swap d6
  371.  add.w d6,d5
  372. ; add.w 2(a0),d5    ;d5 contains
  373.          ;top offset into
  374.          ;each strip.
  375.  add.l #$80000000,d5
  376.      
  377.  move.l (a2),d6
  378.  moveq.l #0,d7
  379.  move.l a5,midobj
  380.  move.l a4,midglass
  381.  move.l (a3),d2
  382.  swap d2
  383.  move.l #times128,a0
  384.  
  385.  movem.l d0-d7/a0-a6,-(a7)
  386.  
  387.  move.w d3,d1
  388.  ext.l d1
  389.  swap d1
  390.  move.w d4,d2
  391.  ext.l d2
  392.  swap d2
  393.  asr.l #6,d1
  394.  asr.l #6,d2
  395.  move.w d1,d5
  396.  move.w d2,d6
  397.  swap d1
  398.  swap d2
  399.  
  400.  muls #320,d2
  401.  
  402.  move.l #WorkSpace,a0
  403.  
  404.  move.w #63,d0
  405. .readinto:
  406.  swap d0
  407.  move.w #63,d0
  408.  move.l toppt(pc),a6
  409.  adda.w a1,a6
  410.  add.w d1,a1
  411.  add.w d5,d7
  412.  bcc.s .noadmoreh
  413.  addq #1,a1
  414. .noadmoreh:
  415.  swap d7
  416.  move.w #0,d7 
  417. .readintodown:
  418.  move.w (a6),d3
  419.  move.w d3,(a0)+
  420.  add.w d2,a6
  421.  add.w d6,d7
  422.  bcc.s .noadmore
  423.  adda.w #320,a6
  424. .noadmore:
  425.  dbra d0,.readintodown
  426.  swap d0
  427.  swap d7
  428.  dbra d0,.readinto
  429.  
  430.  
  431. ; Want to zoom an area d3*d4
  432. ; in size up to 64*64 in size.
  433. ; move.l #WorkSpace,a0
  434. ; move.l frompt,a2
  435. ; move.w #104*4,d3
  436. ; move.w #1,d6
  437. ;.ribl
  438. ; move.w #31,d0
  439. ;.readinto
  440. ; move.w #15,d1
  441. ; move.l a2,a1
  442. ;.readintodown
  443. ; move.w (a1),(a0)+
  444. ; adda.w d3,a1
  445. ; move.w (a1),(a0)+
  446. ; adda.w d3,a1
  447. ; move.w (a1),(a0)+
  448. ; adda.w d3,a1
  449. ; move.w (a1),(a0)+
  450. ; adda.w d3,a1
  451. ; dbra d1,.readintodown
  452. ;; add.w #256-128,a0
  453. ; addq #4,a2
  454. ; dbra d0,.readinto
  455. ; addq #4,a2
  456. ; dbra d6,.ribl
  457.  
  458.  movem.l (a7)+,d0-d7/a0-a6
  459.  
  460.  move.l #darkentab,a2
  461.  move.l toppt,d1
  462.  add.l a1,d1
  463.  move.l d1,toppt
  464.  move.l d6,a1
  465.  moveq #0,d6
  466.  
  467. .drawrightside:
  468.  swap d7
  469.  move.l midglass(pc),a4
  470.  adda.w (a0,d7.w*2),a4
  471.  swap d7
  472.  add.l a1,d7
  473.  move.l toppt(pc),a6
  474.  addq.l #1,toppt
  475.  
  476.  move.l d5,d1
  477.  move.w d4,-(a7)
  478.  swap d3
  479. .drawavertstrip
  480.  move.w (a4,d1.w*2),d3
  481.  blt.s .itsbackground
  482.  move.b (a5,d3.w*2),d6
  483.  move.b (a2,d6.w),(a6)
  484. .itsbackground
  485.  adda.w #320,a6
  486.  addx.l d2,d1
  487.  dbra d4,.drawavertstrip
  488.  swap d3
  489.  move.w (a7)+,d4
  490.  
  491.  dbra d3,.drawrightside
  492.  movem.l (a7)+,d0-d7/a0-a6
  493.  
  494.  rts
  495.  
  496. realwidth: dc.w 0
  497. realheight: dc.w 0
  498.  
  499. AUXX: dc.w 0
  500. AUXY: dc.w 0
  501.  
  502. midglass:
  503.  dc.l 0
  504. times128:
  505. val SET 0
  506.  REPT 100
  507.  dc.w val*128
  508. val SET val+1
  509.  ENDR
  510.  
  511. BRIGHTTOADD: dc.w 0
  512.  
  513. glareobj:
  514.  
  515.  
  516.  move.w (a0)+,d0    ;pt num
  517.  move.w 2(a1,d0.w*8),d1
  518.  cmp.w #25,d1
  519.  ble objbehind
  520.  
  521.  move.w topclip,d2
  522.  move.w botclip,d3
  523.  
  524.  move.l ty3d,d6
  525.  sub.l yoff,d6
  526.  divs d1,d6
  527.  add.w MIDDLEY,d6
  528.  cmp.w d3,d6
  529.  bge objbehind
  530.  cmp.w d2,d6
  531.  bge.s .okobtc
  532.  move.w d2,d6
  533. .okobtc:
  534.  move.w d6,objclipt
  535.  
  536.  move.l by3d,d6
  537.  sub.l yoff,d6
  538.  divs d1,d6
  539.  add.w MIDDLEY,d6
  540.  cmp.w d2,d6
  541.  ble objbehind
  542.  cmp.w d3,d6
  543.  ble.s .okobbc
  544.  move.w d3,d6
  545. .okobbc:
  546.  move.w d6,objclipb
  547.  
  548.  move.l 4(a1,d0.w*8),d0
  549.  move.w AUXX,d2
  550.  ext.l d2
  551.  asl.l #7,d2
  552.  add.l d2,d0
  553.  addq #2,a0
  554.  move.l #SHADINGTABLE-512,a4
  555.  
  556.  move.w (a0)+,d2    ; height
  557.  add.w AUXY,d2
  558.  ext.l d2
  559.  asl.l #7,d2
  560.  sub.l yoff,d2
  561.  divs d1,d2    
  562.  add.w MIDDLEY,d2
  563.  
  564.  divs d1,d0
  565.  add.w MIDDLEX,d0    ;x pos of middle
  566.  
  567. ; Need to calculate:
  568. ; Width of object in pixels
  569. ; height of object in pixels
  570. ; horizontal constants
  571. ; vertical constants.
  572.  move.l LINKFILE,a6
  573.  lea FrameData(a6),a6
  574.  move.l #Objects,a5
  575.  move.w 2(a0),d7
  576.  neg.w d7
  577.  asl.w #4,d7
  578.  adda.w d7,a5
  579.  asl.w #4,d7
  580.  adda.w d7,a6
  581.  
  582.  move.w 4(a0),d7
  583.  lea (a6,d7.w*8),a6
  584.  
  585.  move.l #consttab,a3
  586.  
  587.  moveq #0,d3
  588.  moveq #0,d4
  589.  move.b (a0)+,d3
  590.  move.b (a0)+,d4
  591.  lsl.l #7,d3
  592.  lsl.l #7,d4
  593.  divs d1,d3 ;width in pixels
  594.  divs d1,d4 ;height in pixels
  595.  
  596.  sub.w d4,d2
  597.  sub.w d3,d0
  598.  cmp.w rightclipb,d0
  599.  bge objbehind
  600.  add.w d3,d3
  601.  cmp.w objclipb,d2
  602.  bge objbehind
  603.  
  604.  add.w d4,d4
  605.  
  606. * OBTAIN POINTERS TO HORIZ AND VERT
  607. * CONSTANTS FOR MOVING ACROSS AND
  608. * DOWN THE OBJECT GRAPHIC.
  609.  
  610.  move.l (a5)+,WAD_PTR
  611.  move.l (a5)+,PTR_PTR
  612.  
  613.  move.l (a6),d7
  614.  move.w d7,DOWN_STRIP
  615.  move.l PTR_PTR,a5
  616.  swap d7
  617.  asl.w #2,d7
  618.  adda.w d7,a5
  619.  
  620.  move.w d1,d7
  621.  moveq #0,d6
  622.  move.w 4(a6),d6
  623.  add.w d6,d6
  624.  subq #1,d6
  625.  mulu d6,d7
  626.  moveq #0,d6
  627.  move.b -2(a0),d6
  628.  beq objbehind
  629.  divu d6,d7
  630.  swap d7
  631.  clr.w d7
  632.  swap d7
  633.  lea (a3,d7.l*8),a2    ; pointer to
  634.             ; horiz const
  635.  move.w d1,d7
  636.  move.w 6(a6),d6
  637.  add.w d6,d6
  638.  subq #1,d6
  639.  mulu d6,d7
  640.  moveq #0,d6
  641.  move.b -1(a0),d6
  642.  beq objbehind
  643.  divu d6,d7
  644.  swap d7
  645.  clr.w d7
  646.  swap d7
  647.  lea (a3,d7.l*8),a3    ; pointer to
  648.              ; vertical c.
  649.  
  650. * CLIP OBJECT TO TOP AND BOTTOM
  651. * OF THE VISIBLE DISPLAY
  652.  
  653.  moveq #0,d7
  654.  cmp.w objclipt,d2
  655.  bge.s objfitsontopGLARE
  656.  
  657.  sub.w objclipt,d2
  658.  add.w d2,d4    ;new height in
  659.         ;pixels
  660.  ble objbehind  ; nothing to draw
  661.  
  662.  move.w d2,d7
  663.  neg.w d7    ; factor to mult.
  664.          ; constants by
  665.          ; at top of obj.
  666.  move.w objclipt,d2
  667.  
  668. objfitsontopGLARE:
  669.  
  670.  move.w objclipb,d6
  671.  sub.w d2,d6
  672.  cmp.w d6,d4
  673.  ble.s objfitsonbotGLARE
  674.  
  675.  move.w d6,d4
  676.  
  677. objfitsonbotGLARE:
  678.  
  679.  subq #1,d4
  680.  blt objbehind
  681.  
  682.  move.l #ontoscr,a6
  683.  move.l (a6,d2.w*4),d2
  684.  add.l FASTBUFFER,d2
  685.  move.l d2,toppt
  686.  
  687.  cmp.w leftclipb,d0
  688.  bge.s okonleftGLARE
  689.  
  690.  sub.w leftclipb,d0
  691.  add.w d0,d3
  692.  ble objbehind
  693.  
  694.  move.w (a2),d1
  695.  move.w 2(a2),d2
  696.  neg.w d0
  697.  muls d0,d1
  698.  mulu d0,d2
  699.  swap d2
  700.  add.w d2,d1
  701.  lea (a5,d1.w*4),a5
  702.  
  703.  move.w leftclipb,d0
  704.  
  705. okonleftGLARE:
  706.  
  707.  move.w d0,d6
  708.  add.w d3,d6
  709.  sub.w rightclipb,d6
  710.  blt.s okrightsideGLARE
  711.  
  712.  sub.w #1,d3
  713.  sub.w d6,d3
  714.  
  715. okrightsideGLARE:
  716.  
  717.  ext.l d0
  718.  add.l d0,toppt
  719.  
  720.  
  721.  move.w (a3),d5
  722.  move.w 2(a3),d6
  723.  muls d7,d5
  724.  mulu d7,d6
  725.  swap d6
  726.  add.w d6,d5
  727.  add.w DOWN_STRIP(PC),d5    ;d5 contains
  728.          ;top offset into
  729.          ;each strip.
  730.  add.l #$80000000,d5
  731.      
  732.  move.l (a2),a2
  733.  moveq.l #0,d7
  734.  move.l a5,midobj
  735.  move.l (a3),d2
  736.  swap d2
  737.  
  738.  move.l #0,a1
  739.  
  740.  
  741. drawrightsideGLARE:
  742.  swap d7
  743.  move.l midobj(pc),a5
  744.  lea (a5,d7.w*4),a5
  745.  swap d7
  746.  add.l a2,d7
  747.  move.l WAD_PTR(PC),a0
  748.  
  749.  move.l toppt(pc),a6
  750.  adda.w a1,a6
  751.  addq #1,a1
  752.  move.l (a5),d1
  753.  beq blankstripGLARE
  754.  
  755.  and.l #$ffffff,d1
  756.  add.l d1,a0
  757.  
  758.  move.b (a5),d1
  759.  cmp.b #1,d1
  760.  bgt.s ThirdThirdGLARE
  761.  beq.s SecThirdGLARE
  762.  move.l d5,d6
  763.  move.l d5,d1
  764.  move.w d4,-(a7)
  765. .drawavertstrip
  766.  move.b 1(a0,d1.w*2),d0
  767.  and.b #%00011111,d0
  768.  beq.s .dontplotthisoneitsblack
  769.  lsl.w #8,d0
  770.  move.b (a6),d0
  771.  move.b (a4,d0.w*2),(a6)
  772. .dontplotthisoneitsblack:
  773.  adda.w #320,a6
  774.  add.l d2,d6
  775.  addx.w d2,d1
  776.  dbra d4,.drawavertstrip
  777.  move.w (a7)+,d4
  778. blankstripGLARE:
  779.  dbra d3,drawrightsideGLARE
  780.  bra objbehind
  781.  
  782. SecThirdGLARE:
  783.  move.l d5,d1
  784.  move.l d5,d6
  785.  move.w d4,-(a7)
  786. .drawavertstrip
  787.  move.w (a0,d1.w*2),d0
  788.  lsr.w #5,d0
  789.  and.w #%11111,d0
  790.  beq.s .dontplotthisoneitsblack
  791.  lsl.w #8,d0
  792.  move.b (a6),d0
  793.  move.b (a4,d0.w*2),(a6)
  794. .dontplotthisoneitsblack:
  795.  adda.w #320,a6
  796.  add.l d2,d6
  797.  addx.w d2,d1
  798.  dbra d4,.drawavertstrip
  799.  move.w (a7)+,d4
  800.  dbra d3,drawrightsideGLARE
  801.  bra objbehind
  802.  
  803. ThirdThirdGLARE:
  804.  move.l d5,d1
  805.  move.l d5,d6
  806.  move.w d4,-(a7)
  807. .drawavertstrip
  808.  move.b (a0,d1.w*2),d0
  809.  lsr.b #2,d0
  810.  and.b #%11111,d0
  811.  beq.s .dontplotthisoneitsblack
  812.  lsl.w #8,d0
  813.  move.b (a6),d0
  814.  move.b (a4,d0.w*2),(a6)
  815. .dontplotthisoneitsblack:
  816.  adda.w #320,a6
  817.  add.l d2,d6
  818.  addx.w d2,d1
  819.  dbra d4,.drawavertstrip
  820.  move.w (a7)+,d4
  821.  dbra d3,drawrightsideGLARE
  822.  
  823.  movem.l (a7)+,d0-d7/a0-a6
  824.  rts
  825.  
  826.  
  827.  
  828. BitMapObj:
  829.  move.l #0,AUXX
  830.  
  831.  cmp.b #3,16(a0)
  832.  bne.s .NOTAUX
  833.  
  834.  move.w auxxoff(a0),AUXX
  835.  move.w auxyoff(a0),AUXY
  836.   
  837. .NOTAUX:
  838.  
  839.  tst.l 8(a0)
  840.  blt glareobj
  841.  
  842.  move.w Facing(a0),FACINGANG
  843.  
  844.  move.w (a0)+,d0    ;pt num
  845.  
  846.  move.l ObjectPoints,a4
  847.  
  848.  move.w (a4,d0.w*8),thisxpos
  849.  move.w 4(a4,d0.w*8),thiszpos
  850.  
  851.  move.w 2(a1,d0.w*8),d1
  852.  cmp.w #25,d1
  853.  ble objbehind
  854.  
  855.  move.w topclip,d2
  856.  asr.w #1,d2
  857.  move.w botclip,d3
  858.  asr.w #1,d3
  859.  
  860.  move.l ty3d,d6
  861.  sub.l yoff,d6
  862.  divs d1,d6
  863.  add.w d6,d6
  864.  add.w MIDDLEY,d6
  865.  asr.w #1,d6
  866.  cmp.w d3,d6
  867.  bge objbehind
  868.  cmp.w d2,d6
  869.  bge.s .okobtc
  870.  move.w d2,d6
  871. .okobtc:
  872.  move.w d6,objclipt
  873.  
  874.  move.l by3d,d6
  875.  sub.l yoff,d6
  876.  divs d1,d6
  877.  add.w d6,d6
  878.  add.w MIDDLEY,d6
  879.  asr.w #1,d6
  880.  cmp.w d2,d6
  881.  ble objbehind
  882.  cmp.w d3,d6
  883.  ble.s .okobbc
  884.  move.w d3,d6
  885. .okobbc:
  886.  move.w d6,objclipb
  887.  
  888.  move.l 4(a1,d0.w*8),d0
  889.  move.w AUXX,d2
  890.  ext.l d2
  891.  asl.l #7,d2
  892.  add.l d2,d0
  893.  move.w d1,d6
  894.  asr.w #6,d6
  895.  add.w (a0)+,d6
  896.  move.w d6,BRIGHTTOADD
  897.  
  898.  bge.s brighttoonot
  899.  moveq #0,d6
  900. brighttoonot
  901.  sub.l a4,a4
  902.  move.w objscalecols(pc,d6.w*2),a4
  903.  bra pastobjscale
  904.  
  905. objscalecols:
  906.  dcb.w  2,64*0
  907.  dcb.w  4,64*1
  908.  dcb.w  4,64*2
  909.  dcb.w  4,64*3
  910.  dcb.w  4,64*4
  911.  dcb.w  4,64*5
  912.  dcb.w  4,64*6
  913.  dcb.w  4,64*7
  914.  dcb.w  4,64*8
  915.  dcb.w  4,64*9
  916.  dcb.w  4,64*10
  917.  dcb.w  4,64*11
  918.  dcb.w  4,64*12
  919.  dcb.w  4,64*13
  920.  dcb.w  20,64*14
  921.  
  922. WHICHLIGHTPAL: dc.w 0
  923. FLIPIT: dc.w 0
  924. FLIPPEDIT: dc.w 0
  925. LIGHTIT: dc.w 0
  926. ADDITIVE: dc.w 0
  927. BASEPAL: dc.l 0
  928.  
  929. pastobjscale:
  930.  
  931.  move.w (a0)+,d2    ; height
  932.  
  933.  add.w AUXY,d2
  934.  ext.l d2
  935.  asl.l #7,d2
  936.  sub.l yoff,d2
  937.  divs d1,d2    
  938.  add.w d2,d2
  939.  add.w MIDDLEY,d2
  940.  asr.w #1,d2
  941.  
  942.  divs d1,d0
  943.  add.w d0,d0
  944.  add.w MIDDLEX,d0    ;x pos of middle
  945.  asr.w #1,d0
  946.  
  947. ; Need to calculate:
  948. ; Width of object in pixels
  949. ; height of object in pixels
  950. ; horizontal constants
  951. ; vertical constants.
  952.  
  953.  move.l LINKFILE,a6
  954.  lea FrameData(a6),a6
  955.  move.l #Objects,a5
  956.  move.w 2(a0),d7
  957.  asl.w #4,d7
  958.  adda.w d7,a5
  959.  asl.w #4,d7
  960.  adda.w d7,a6
  961.  
  962.  clr.b LIGHTIT
  963.  clr.b ADDITIVE
  964.  move.b 4(a0),d7
  965.  btst #7,d7
  966.  sne FLIPIT
  967.  and.b #127,d7
  968.  sub.b #2,d7
  969.  blt.s .NOTALIGHT
  970.  
  971.  cmp.b #4,d7
  972.  blt.s .isalight
  973.  
  974.  st ADDITIVE
  975.  bra.s .NOTALIGHT
  976. .isalight:
  977.  
  978.  st LIGHTIT
  979.  move.b d7,WHICHLIGHTPAL
  980.  
  981. .NOTALIGHT:
  982.  
  983.  moveq #0,d7
  984.  move.b 5(a0),d7
  985.  lea (a6,d7.w*8),a6
  986.  
  987.  move.l #consttab,a3
  988.  
  989.  moveq #0,d3
  990.  moveq #0,d4
  991.  move.b (a0)+,d3
  992.  move.b (a0)+,d4
  993.  lsl.l #7,d3
  994.  lsl.l #7,d4
  995.  divs d1,d3 ;width in pixels
  996.  divs d1,d4 ;height in pixels
  997.  
  998.  sub.w d4,d2
  999.  sub.w d3,d0
  1000.  cmp.w rightclipb,d0
  1001.  bge objbehind
  1002.  add.w d3,d3
  1003.  cmp.w objclipb,d2
  1004.  bge objbehind
  1005.  
  1006.  add.w d4,d4
  1007.  
  1008. * OBTAIN POINTERS TO HORIZ AND VERT
  1009. * CONSTANTS FOR MOVING ACROSS AND
  1010. * DOWN THE OBJECT GRAPHIC.
  1011.  
  1012.  move.l (a5)+,WAD_PTR
  1013.  move.l (a5)+,PTR_PTR
  1014.  add.l 4(a5),a4
  1015.  move.l 4(a5),BASEPAL
  1016.  
  1017.  move.l (a6),d7
  1018.  move.w d7,DOWN_STRIP
  1019.  move.l PTR_PTR,a5
  1020.  
  1021.  tst.b FLIPIT
  1022.  beq.s .nfl1
  1023.  
  1024.  move.w 4(a6),d6
  1025.  add.w d6,d6
  1026.  subq #1,d6
  1027.  lea (a5,d6.w*4),a5
  1028.  
  1029. .nfl1:
  1030.  swap d7
  1031.  asl.w #2,d7
  1032.  adda.w d7,a5
  1033. fl1:
  1034.  
  1035.  move.w d1,d7
  1036.  moveq #0,d6
  1037.  move.w 4(a6),d6
  1038.  add.w d6,d6
  1039.  subq #1,d6
  1040.  mulu d6,d7
  1041.  moveq #0,d6
  1042.  move.b -2(a0),d6
  1043.  beq objbehind
  1044.  divu d6,d7
  1045.  swap d7
  1046.  clr.w d7
  1047.  swap d7
  1048.  lea (a3,d7.l*8),a2    ; pointer to
  1049.             ; horiz const
  1050.  move.w d1,d7
  1051.  move.w 6(a6),d6
  1052.  add.w d6,d6
  1053.  subq #1,d6
  1054.  mulu d6,d7
  1055.  moveq #0,d6
  1056.  move.b -1(a0),d6
  1057.  beq objbehind
  1058.  divu d6,d7
  1059.  swap d7
  1060.  clr.w d7
  1061.  swap d7
  1062.  lea (a3,d7.l*8),a3    ; pointer to
  1063.              ; vertical c.
  1064.  
  1065. * CLIP OBJECT TO TOP AND BOTTOM
  1066. * OF THE VISIBLE DISPLAY
  1067.  
  1068.  moveq #0,d7
  1069.  cmp.w objclipt,d2
  1070.  bge.s objfitsontop
  1071.  
  1072.  sub.w objclipt,d2
  1073.  add.w d2,d4    ;new height in
  1074.         ;pixels
  1075.  ble objbehind  ; nothing to draw
  1076.  
  1077.  move.w d2,d7
  1078.  neg.w d7    ; factor to mult.
  1079.          ; constants by
  1080.          ; at top of obj.
  1081.  move.w objclipt,d2
  1082.  
  1083. objfitsontop:
  1084.  
  1085.  move.w objclipb,d6
  1086.  sub.w d2,d6
  1087.  cmp.w d6,d4
  1088.  ble.s objfitsonbot
  1089.  
  1090.  move.w d6,d4
  1091.  
  1092. objfitsonbot:
  1093.  
  1094.  subq #1,d4
  1095.  blt objbehind
  1096.  
  1097.  move.l #ontoscr,a6
  1098.  move.l (a6,d2.w*4),d2
  1099.  add.l frompt,d2
  1100.  move.l d2,toppt
  1101.  
  1102.  cmp.w leftclipb,d0
  1103.  bge.s okonleft
  1104.  
  1105.  sub.w leftclipb,d0
  1106.  add.w d0,d3
  1107.  ble objbehind
  1108.  
  1109.  move.w (a2),d1
  1110.  move.w 2(a2),d2
  1111.  neg.w d0
  1112.  muls d0,d1
  1113.  mulu d0,d2
  1114.  swap d2
  1115.  add.w d2,d1
  1116.  move.w leftclipb,d0
  1117.  
  1118.  asl.w #2,d1
  1119.  tst.b FLIPIT
  1120.  beq.s .nfl2
  1121.  
  1122.  suba.w d1,a5
  1123.  suba.w d1,a5
  1124.  
  1125. .nfl2:
  1126.  
  1127.  adda.w d1,a5 
  1128.  
  1129. okonleft:
  1130.  
  1131.  move.w d0,d6
  1132.  add.w d3,d6
  1133.  sub.w rightclipb,d6
  1134.  blt.s okrightside
  1135.  
  1136.  sub.w #1,d3
  1137.  sub.w d6,d3
  1138.  
  1139. okrightside:
  1140.  
  1141.  move.l #objintocop,a1
  1142.  lea (a1,d0.w*2),a1
  1143. ; ext.l d0
  1144. ; add.l d0,toppt
  1145.  
  1146.  move.w (a3),d5
  1147.  move.w 2(a3),d6
  1148.  muls d7,d5
  1149.  mulu d7,d6
  1150.  swap d6
  1151.  add.w d6,d5
  1152.  add.w DOWN_STRIP(PC),d5    ;d5 contains
  1153.          ;top offset into
  1154.          ;each strip.
  1155.  add.l #$80000000,d5
  1156.      
  1157.  move.l (a2),d7
  1158.  tst.b FLIPIT
  1159.  beq.s .nfl3
  1160.  neg.l d7
  1161. .nfl3:
  1162.  move.l d7,a2
  1163.  moveq.l #0,d7
  1164.  move.l a5,midobj
  1165.  move.l (a3),d2
  1166.  swap d2
  1167.  
  1168. ; move.l #0,a1
  1169.  
  1170.  tst.b LIGHTIT
  1171.  bne DRAWITLIGHTED
  1172.  
  1173.  tst.b ADDITIVE
  1174.  bne DRAWITADDED
  1175.  
  1176. drawrightside:
  1177.  swap d7
  1178.  move.l midobj(pc),a5
  1179.  lea (a5,d7.w*4),a5
  1180.  swap d7
  1181.  add.l a2,d7
  1182.  move.l WAD_PTR(PC),a0
  1183.  
  1184.  move.l toppt(pc),a6
  1185.  adda.w (a1)+,a6
  1186. ; addq #1,a1
  1187.  move.l (a5),d1
  1188.  beq blankstrip
  1189.  
  1190.  and.l #$ffffff,d1
  1191.  add.l d1,a0
  1192.  
  1193.  move.b (a5),d1
  1194.  cmp.b #1,d1
  1195.  bgt.s ThirdThird
  1196.  beq.s SecThird
  1197.  move.l d5,d6
  1198.  move.l d5,d1
  1199.  move.w d4,-(a7)
  1200. .drawavertstrip
  1201.  move.b 1(a0,d1.w*2),d0
  1202.  and.b #%00011111,d0
  1203.  beq.s .dontplotthisoneitsblack
  1204.  move.w (a4,d0.w*2),(a6)
  1205. .dontplotthisoneitsblack:
  1206.  adda.w #104*4,a6
  1207.  add.l d2,d6
  1208.  addx.w d2,d1
  1209.  dbra d4,.drawavertstrip
  1210.  move.w (a7)+,d4
  1211. blankstrip:
  1212.  dbra d3,drawrightside
  1213.  bra.s objbehind
  1214.  
  1215. SecThird:
  1216.  move.l d5,d1
  1217.  move.l d5,d6
  1218.  move.w d4,-(a7)
  1219. .drawavertstrip
  1220.  move.w (a0,d1.w*2),d0
  1221.  lsr.w #5,d0
  1222.  and.w #%11111,d0
  1223.  beq.s .dontplotthisoneitsblack
  1224.  move.w (a4,d0.w*2),(a6)
  1225. .dontplotthisoneitsblack:
  1226.  adda.w #104*4,a6
  1227.  add.l d2,d6
  1228.  addx.w d2,d1
  1229.  dbra d4,.drawavertstrip
  1230.  move.w (a7)+,d4
  1231.  dbra d3,drawrightside
  1232.  bra.s objbehind
  1233.  
  1234. ThirdThird:
  1235.  move.l d5,d1
  1236.  move.l d5,d6
  1237.  move.w d4,-(a7)
  1238. .drawavertstrip
  1239.  move.b (a0,d1.w*2),d0
  1240.  lsr.b #2,d0
  1241.  and.b #%11111,d0
  1242.  beq.s .dontplotthisoneitsblack
  1243.  move.w (a4,d0.w*2),(a6)
  1244. .dontplotthisoneitsblack:
  1245.  adda.w #104*4,a6
  1246.  add.l d2,d6
  1247.  addx.w d2,d1
  1248.  dbra d4,.drawavertstrip
  1249.  move.w (a7)+,d4
  1250.  dbra d3,drawrightside
  1251.  
  1252. objbehind:
  1253.  movem.l (a7)+,d0-d7/a0-a6
  1254.  rts
  1255.  
  1256. DRAWITADDED:
  1257.  move.l BASEPAL,a4
  1258.  
  1259. drawrightsideADD:
  1260.  swap d7
  1261.  move.l midobj(pc),a5
  1262.  lea (a5,d7.w*4),a5
  1263.  swap d7
  1264.  add.l a2,d7
  1265.  move.l WAD_PTR(PC),a0
  1266.  
  1267.  move.l toppt(pc),a6
  1268.  adda.w a1,a6
  1269.  addq #1,a1
  1270.  move.l (a5),d1
  1271.  beq blankstripADD
  1272.  
  1273.  and.l #$ffffff,d1
  1274.  add.l d1,a0
  1275.  
  1276.  move.b (a5),d1
  1277.  cmp.b #1,d1
  1278.  bgt.s ThirdThirdADD
  1279.  beq.s SecThirdADD
  1280.  move.l d5,d6
  1281.  move.l d5,d1
  1282.  move.w d4,-(a7)
  1283. .drawavertstrip
  1284.  move.b 1(a0,d1.w*2),d0
  1285.  and.b #%00011111,d0
  1286.  lsl.w #8,d0
  1287.  move.b (a6),d0
  1288.  move.b (a4,d0.w),(a6)
  1289.  adda.w #320,a6
  1290.  add.l d2,d6
  1291.  addx.w d2,d1
  1292.  dbra d4,.drawavertstrip
  1293.  move.w (a7)+,d4
  1294. blankstripADD:
  1295.  dbra d3,drawrightsideADD
  1296.  bra objbehind
  1297.  
  1298. SecThirdADD:
  1299.  move.l d5,d1
  1300.  move.l d5,d6
  1301.  move.w d4,-(a7)
  1302. .drawavertstrip
  1303.  move.w (a0,d1.w*2),d0
  1304.  lsr.w #5,d0
  1305.  and.w #%11111,d0
  1306.  lsl.w #8,d0
  1307.  move.b (a6),d0
  1308.  move.b (a4,d0.w),(a6)
  1309.  adda.w #320,a6
  1310.  add.l d2,d6
  1311.  addx.w d2,d1
  1312.  dbra d4,.drawavertstrip
  1313.  move.w (a7)+,d4
  1314.  dbra d3,drawrightsideADD
  1315.  bra objbehind
  1316.  
  1317. ThirdThirdADD:
  1318.  move.l d5,d1
  1319.  move.l d5,d6
  1320.  move.w d4,-(a7)
  1321. .drawavertstrip
  1322.  move.b (a0,d1.w*2),d0
  1323.  lsr.b #2,d0
  1324.  and.b #%11111,d0
  1325.  lsl.w #8,d0
  1326.  move.b (a6),d0
  1327.  move.b (a4,d0.w),(a6)
  1328. .dontplotthisoneitsblack:
  1329.  adda.w #320,a6
  1330.  add.l d2,d6
  1331.  addx.w d2,d1
  1332.  dbra d4,.drawavertstrip
  1333.  move.w (a7)+,d4
  1334.  dbra d3,drawrightsideADD
  1335.  
  1336.  bra objbehind
  1337.  
  1338. DRAWITLIGHTED:
  1339.  
  1340. ; Make up lighting values
  1341.  
  1342.  movem.l d0-d7/a0-a6,-(a7)
  1343.  
  1344.  move.l #ANGLEBRIGHTS,a2
  1345.  move.l #$80808080,(a2)
  1346.  move.l #$80808080,4(a2)
  1347.  move.l #$80808080,8(a2)
  1348.  move.l #$80808080,12(a2)
  1349.  move.l #$80808080,16(a2)
  1350.  move.l #$80808080,20(a2)
  1351.  move.l #$80808080,24(a2)
  1352.  move.l #$80808080,28(a2)
  1353.  
  1354.  move.l #$80808080,32(a2)
  1355.  move.l #$80808080,36(a2)
  1356.  move.l #$80808080,40(a2)
  1357.  move.l #$80808080,44(a2)
  1358.  move.l #$80808080,48(a2)
  1359.  move.l #$80808080,52(a2)
  1360.  move.l #$80808080,56(a2)
  1361.  move.l #$80808080,60(a2)
  1362.  
  1363.  move.w currzone(pc),d0
  1364.  bsr CALCBRIGHTSINZONE
  1365.  
  1366.  move.l #ANGLEBRIGHTS+32,a2
  1367.  
  1368. ; Now do the brightnesses of surrounding
  1369. ; zones:
  1370.  
  1371. ; move.l FloorLines,a1
  1372. ; move.w currzone,d0
  1373. ; move.l ZoneAdds,a4
  1374. ; move.l (a4,d0.w*4),a4
  1375. ; add.l LEVELDATA,a4
  1376. ; move.l a4,a5
  1377. ; 
  1378. ; adda.w ToExitList(a4),a5
  1379. ; 
  1380. ;.doallwalls
  1381. ; move.w (a5)+,d0
  1382. ; blt .nomorewalls
  1383. ;
  1384. ; asl.w #4,d0
  1385. ; lea (a1,d0.w),a3
  1386. ; 
  1387. ; move.w 8(a3),d0
  1388. ; blt.s .solidwall ; a wall not an exit.
  1389. ; 
  1390. ; movem.l a1/a4/a5,-(a7) 
  1391. ; bsr CALCBRIGHTSINZONE
  1392. ; movem.l (a7)+,a1/a4/a5
  1393. ; bra .doallwalls
  1394. ;
  1395. ;.solidwall:
  1396. ; move.w 4(a3),d1
  1397. ; move.w 6(a3),d2
  1398. ; 
  1399. ; move.w oldx,newx
  1400. ; move.w oldz,newz
  1401. ; sub.w d2,newx
  1402. ; add.w d1,newz
  1403. ;
  1404. ; movem.l d0-d7/a0-a6,-(a7)
  1405. ; jsr HeadTowardsAng
  1406. ; movem.l (a7)+,d0-d7/a0-a6
  1407. ; move.w AngRet,d1
  1408. ; neg.w d1
  1409. ; and.w #8191,d1
  1410. ; asr.w #8,d1
  1411. ; asr.w #1,d1
  1412.  
  1413. ; move.b #48,(a2,d1.w)
  1414. ; move.b #48,16(a2,d1.w)
  1415. ; bra .doallwalls 
  1416. ;
  1417. ;.nomorewalls:
  1418.  
  1419.  move.l #xzangs,a0
  1420.  move.l #ANGLEBRIGHTS,a1
  1421.  move.w #15,d7
  1422.  sub.l a2,a2
  1423.  sub.l a3,a3
  1424.  sub.l a4,a4
  1425.  sub.l a5,a5
  1426.  moveq #00,d0
  1427.  moveq #00,d1
  1428. averageangle:
  1429.  
  1430.  moveq #0,d4
  1431.  move.b 16(a1),d4
  1432.  cmp.b #$80,d4
  1433.  beq.s .nobright
  1434.  
  1435.  neg.w d4
  1436.  add.w #48,d4
  1437.  cmp.b d1,d4
  1438.  ble.s .nobrightest
  1439.  move.b d4,d1
  1440. .nobrightest:
  1441.  
  1442.  
  1443.  move.w (a0),d5
  1444.  move.w 2(a0),d6
  1445.  muls d4,d5
  1446.  muls d4,d6
  1447.  add.l d5,a2
  1448.  add.l d6,a3
  1449.  
  1450. .nobright:
  1451.  
  1452. BOTTYL:
  1453.  
  1454.  moveq #0,d4
  1455.  move.b (a1),d4
  1456.  cmp.b #$80,d4
  1457.  beq.s .nobright 
  1458.  neg.w d4
  1459.  add.w #48,d4
  1460.  cmp.b d0,d4
  1461.  blt.s .nobrightest
  1462.  move.b d4,d0
  1463. .nobrightest:
  1464.  
  1465.  move.w (a0),d5
  1466.  move.w 2(a0),d6
  1467.  muls d4,d5
  1468.  muls d4,d6
  1469.  add.l d5,a4
  1470.  add.l d6,a5
  1471.  
  1472. .nobright:
  1473.  addq #4,a0
  1474.  addq #1,a1
  1475.  
  1476.  dbra d7,averageangle
  1477.  
  1478.  move.l a2,d2
  1479.  move.l a3,d3
  1480.  move.l a4,d4
  1481.  move.l a5,d5
  1482.  
  1483.  add.l d2,d4
  1484.  add.l d3,d5    ; bright dir.
  1485.  
  1486.  bsr FINDROUGHANG
  1487.  
  1488. foundang:
  1489.  
  1490.  move.w #7,d2
  1491.  move.w d1,d3 
  1492.  cmp.w d0,d1
  1493.  beq.s INMIDDLE
  1494.  bgt.s .okpicked
  1495.  move.w d0,d3
  1496. .okpicked
  1497.  
  1498.  move.w d0,d2
  1499.  add.w d1,d2    ; total brightness
  1500.  
  1501.  muls #16,d1
  1502.  subq #1,d1
  1503.  divs d2,d1
  1504.  move.w d1,d2
  1505.  
  1506. INMIDDLE:
  1507.  ; d2=y distance from middle of brightest pt.
  1508.  ; d3=brightness
  1509.  neg.w d3
  1510.  add.w #48,d3
  1511.  
  1512.  move.l #willy,a0
  1513.  move.l #guff,a1
  1514.  add.l guffptr,a1
  1515. ; add.l #16*7,guffptr
  1516. ; cmp.l #16*7*15,guffptr
  1517. ; ble.s .noreguff
  1518. ; move.l #0,guffptr
  1519. ;.noreguff:
  1520.  
  1521.  muls #7*16,d2
  1522.  add.l d2,a1
  1523.  
  1524.  move.w p1_angpos,d0
  1525.  neg.w d0
  1526.  add.w #4096,d0
  1527.  and.w #8191,d0
  1528.  asr.w #8,d0
  1529.  asr.w #1,d0
  1530.  
  1531.  sub.b #3,d0
  1532.  add.b d4,d0
  1533.  and.w #15,d0
  1534.  move.w #6,d1
  1535. .across:
  1536.  move.w #6,d2
  1537.  move.w d0,d5
  1538. .down
  1539.  move.b (a1,d5),d4
  1540.  add.b d3,d4
  1541.  ext.w d4
  1542.  move.w d4,(a0)+
  1543.  addq #1,d5
  1544.  and.w #15,d5
  1545.  dbra d2,.down
  1546.  add.w #16,a1
  1547.  dbra d1,.across
  1548.  
  1549. ; jsr CALCBRIGHTRINGS
  1550.  
  1551. ; Need to scan around zone points putting in
  1552. ; brightnesses.
  1553.  
  1554.  
  1555. ; move.w PLR1_xoff,newx
  1556. ; move.w PLR1_zoff,newz
  1557. ; move.w thisxpos,oldx
  1558. ; move.w thiszpos,oldz
  1559. ; movem.l d0-d7/a0-a6,-(a7)
  1560. ; jsr HeadTowardsAng
  1561. ; movem.l (a7)+,d0-d7/a0-a6
  1562.  
  1563.  
  1564. ; move.w #0,d0
  1565. ; move.w AngRet,d0
  1566. ; move.w p1_angpos,d0
  1567. ; neg.w d0
  1568. ; add.w #4096,d0
  1569. ; and.w #8191,d0
  1570. ; asr.w #8,d0
  1571. ; asr.w #1,d0
  1572. ; 
  1573. ; sub.b #6,d0
  1574. ; and.b #15,d0
  1575. ; move.l #ANGLEBRIGHTS,a1
  1576. ; 
  1577. ; move.l #willy,a0
  1578. ; moveq #6,d1
  1579. ;.across:
  1580. ; moveq #0,d3
  1581. ; moveq #0,d4
  1582. ; move.b (a1,d0.w),d4
  1583. ; bge.s .okp1
  1584. ; moveq #0,d4
  1585. ;.okp1
  1586. ; 
  1587. ; move.b 16(a1,d0.w),d3
  1588. ; bge.s .okp2
  1589. ; moveq #0,d3
  1590. ;.okp2
  1591. ; sub.w d3,d4
  1592. ; swap d3
  1593. ; swap d4
  1594. ; divs.l #7,d4
  1595. ; moveq #6,d2
  1596. ; moveq #0,d5
  1597. ;.down:
  1598. ; swap d3
  1599. ; move.w d3,(a0,d5.w*2)
  1600. ; swap d3
  1601. ; addq #7,d5
  1602. ; add.l d4,d3
  1603. ; dbra d2,.down
  1604. ; addq #2,d0
  1605. ; and.w #15,d0
  1606. ; addq #2,a0
  1607. ; dbra d1,.across
  1608.  
  1609.  
  1610.  move.w BRIGHTTOADD,d0
  1611.  move.l #willy,a0
  1612.  move.l #willybright,a1
  1613.  move.w #48,d1
  1614. ADDITIN:
  1615.  
  1616.  move.w d0,d2
  1617.  add.w (a1)+,d2
  1618.  ble.s .nopos
  1619.  
  1620.  moveq #0,d2
  1621.  
  1622. .nopos:
  1623.  
  1624.  add.w d2,(a0)+
  1625.  
  1626.  dbra d1,ADDITIN
  1627.  
  1628.  
  1629.  
  1630.  tst.b FLIPIT
  1631.  beq.s LEFTTORIGHT
  1632.  
  1633.  move.l #Brights2,a0
  1634.  bra DONERIGHTTOLEFT
  1635.  
  1636. LEFTTORIGHT:
  1637.  
  1638.  move.l #Brights,a0
  1639. DONERIGHTTOLEFT:
  1640.  move.l #willy,a2
  1641.  move.l BASEPAL,a1
  1642.  move.b WHICHLIGHTPAL,d0
  1643.  asl.w #8,d0
  1644.  add.w d0,a1 
  1645.  move.l #PALS,a3
  1646.  move.w #28,d0
  1647. makepals:
  1648.  
  1649.  move.w (a0)+,d1
  1650.  move.w (a2,d1.w*2),d1
  1651.  bge.s .okpos
  1652.  moveq #0,d1
  1653. .okpos: 
  1654.  cmp.w #31,d1
  1655.  blt.s .okneg
  1656.  move.w #31,d1
  1657. .okneg:
  1658.  
  1659.  move.l (a1,d1.w*8),(a3)+
  1660.  move.b #0,-4(a3)
  1661.  move.l 4(a1,d1.w*8),(a3)+
  1662.  
  1663.  dbra d0,makepals
  1664.  
  1665.  movem.l (a7)+,d0-d7/a0-a6
  1666.  
  1667.  move.l #PALS,a4
  1668.  
  1669. drawlightlop
  1670.  swap d7
  1671.  move.l midobj(pc),a5
  1672.  lea (a5,d7.w*4),a5
  1673.  swap d7
  1674.  add.l a2,d7
  1675.  move.l WAD_PTR(PC),a0
  1676.  
  1677.  move.l toppt(pc),a6
  1678.  adda.w a1,a6
  1679.  addq #1,a1
  1680.  move.l (a5),d1
  1681.  beq .blankstrip
  1682.  
  1683.  add.l d1,a0
  1684.  
  1685.  move.l d5,d6
  1686.  move.l d5,d1
  1687.  move.w d4,-(a7)
  1688. .drawavertstrip
  1689.  move.b (a0,d1.w),d0
  1690.  beq.s .dontplotthisoneitsblack
  1691.  move.b (a4,d0.w),(a6)
  1692. .dontplotthisoneitsblack:
  1693.  adda.w #320,a6
  1694.  add.l d2,d6
  1695.  addx.w d2,d1
  1696.  dbra d4,.drawavertstrip
  1697.  move.w (a7)+,d4
  1698. .blankstrip:
  1699.  dbra d3,drawlightlop
  1700.  bra objbehind
  1701.  
  1702. *********************************************
  1703. FINDROUGHANG:
  1704.  neg.l d5
  1705.  moveq #0,d7
  1706.  tst.l d4
  1707.  bge.s .no8
  1708.  add.w #8,d7
  1709.  neg.l d4
  1710. .no8
  1711.  tst.l d5
  1712.  bge.s .no4
  1713.  neg.l d5
  1714.  add.w #4,d7
  1715. .no4
  1716.  cmp.l d5,d4
  1717.  bge.s .no2
  1718.  addq #2,d7
  1719.  exg d4,d5
  1720. .no2:
  1721.  asr.l #1,d4
  1722.  cmp.l d5,d4
  1723.  bge.s .no1
  1724.  addq #1,d7
  1725. .no1
  1726.  
  1727.  move.w maptoang(pc,d7.w*2),d4    ; retun angle
  1728.  rts
  1729.  
  1730. maptoang:
  1731.  dc.w 3,2,0,1,4,5,7,6
  1732.  dc.w 12,13,15,14,11,10,8,9
  1733.  
  1734. guffptr: dc.l 0
  1735.  
  1736. *********************************************
  1737. CALCBRIGHTRINGS:
  1738.  move.l #ANGLEBRIGHTS,a2
  1739.  move.l #$80808080,(a2)
  1740.  move.l #$80808080,4(a2)
  1741.  move.l #$80808080,8(a2)
  1742.  move.l #$80808080,12(a2)
  1743.  move.l #$80808080,16(a2)
  1744.  move.l #$80808080,20(a2)
  1745.  move.l #$80808080,24(a2)
  1746.  move.l #$80808080,28(a2)
  1747.  
  1748.  move.l #$80808080,32(a2)
  1749.  move.l #$80808080,36(a2)
  1750.  move.l #$80808080,40(a2)
  1751.  move.l #$80808080,44(a2)
  1752.  move.l #$80808080,48(a2)
  1753.  move.l #$80808080,52(a2)
  1754.  move.l #$80808080,56(a2)
  1755.  move.l #$80808080,60(a2)
  1756.  
  1757.  move.w currzone(pc),d0
  1758.  bsr CALCBRIGHTSINZONE
  1759.  
  1760.  move.l #ANGLEBRIGHTS+32,a2
  1761.  
  1762. ; Now do the brightnesses of surrounding
  1763. ; zones:
  1764.  
  1765.  move.l FloorLines,a1
  1766.  move.w currzone,d0
  1767.  move.l ZoneAdds,a4
  1768.  move.l (a4,d0.w*4),a4
  1769.  add.l LEVELDATA,a4
  1770.  move.l a4,a5
  1771.  
  1772.  adda.w ToExitList(a4),a5
  1773.  
  1774. .doallwalls
  1775.  move.w (a5)+,d0
  1776.  blt .nomorewalls
  1777.  
  1778.  asl.w #4,d0
  1779.  lea (a1,d0.w),a3
  1780.  
  1781.  move.w 8(a3),d0
  1782.  blt.s .solidwall ; a wall not an exit.
  1783.  
  1784.  movem.l a1/a4/a5,-(a7) 
  1785.  bsr CALCBRIGHTSINZONE
  1786.  movem.l (a7)+,a1/a4/a5
  1787.  bra .doallwalls
  1788.  
  1789. .solidwall:
  1790.  move.w 4(a3),d1
  1791.  move.w 6(a3),d2
  1792.  
  1793.  move.w oldx,newx
  1794.  move.w oldz,newz
  1795.  sub.w d2,newx
  1796.  add.w d1,newz
  1797.  
  1798.  movem.l d0-d7/a0-a6,-(a7)
  1799.  jsr HeadTowardsAng
  1800.  movem.l (a7)+,d0-d7/a0-a6
  1801.  move.w AngRet,d1
  1802.  neg.w d1
  1803.  and.w #8191,d1
  1804.  asr.w #8,d1
  1805.  asr.w #1,d1
  1806.  
  1807.  move.b #48,(a2,d1.w)
  1808.  move.b #48,16(a2,d1.w)
  1809.  bra .doallwalls 
  1810.  
  1811. .nomorewalls:
  1812.  
  1813.  
  1814. ; move.b #0,(a2)
  1815. ; move.b #20,8(a2)
  1816. ; move.b #0,16(a2)
  1817. ; move.b #20,24(a2)
  1818.  
  1819.  move.l #ANGLEBRIGHTS,a0
  1820.  bsr TWEENBRIGHTS
  1821.  move.l #ANGLEBRIGHTS+16,a0
  1822.  bsr TWEENBRIGHTS
  1823.  move.l #ANGLEBRIGHTS+32,a0
  1824.  bsr TWEENBRIGHTS
  1825.  move.l #ANGLEBRIGHTS+48,a0
  1826.  bsr TWEENBRIGHTS
  1827.  
  1828.  move.l #ANGLEBRIGHTS,a0
  1829.  move.b #15,d0
  1830. ADDBRIGHTS
  1831.  
  1832.  moveq #0,d3
  1833.  moveq #0,d4
  1834.  move.b 32(a0),d3
  1835.  move.b 48(a0),d4
  1836.  neg.w d3
  1837.  add.w #48,d3
  1838.  neg.w d4
  1839.  add.w #48,d4
  1840.  asr.w #1,d4
  1841.  asr.w #1,d3
  1842.  
  1843.  move.b 16(a0),d5
  1844.  sub.b d5,d4
  1845.  ble.s .ok2
  1846.  moveq #0,d4
  1847. .ok2:
  1848.  move.b (a0),d5
  1849.  sub.b d5,d3
  1850.  ble.s .ok1
  1851.  moveq #0,d3
  1852. .ok1:
  1853.  neg.b d3
  1854.  neg.b d4
  1855.  
  1856.  move.b d4,16(a0)
  1857.  move.b d3,(a0)+ 
  1858.  
  1859.  dbra d0,ADDBRIGHTS
  1860.  
  1861.  rts
  1862.  
  1863. **********************************************
  1864.  
  1865. TWEENBRIGHTS:
  1866.  
  1867.  moveq #0,d0
  1868. .backinto:
  1869.  cmp.b #-128,(a0,d0.w)
  1870.  bne.s .okbr
  1871.  addq #1,d0
  1872.  bra.s .backinto
  1873.  
  1874. .okbr:
  1875.  
  1876.  move.b d0,d7 ;starting pos
  1877.  move.b d0,d1 ;previous pos
  1878.  
  1879. ; tween to next value
  1880. .findnext
  1881.  addq #1,d0
  1882.  and.w #15,d0
  1883.  cmp.b #-128,(a0,d0.w)
  1884.  beq.s .findnext
  1885.  
  1886.  moveq #0,d2
  1887.  moveq #0,d3
  1888.  move.b (a0,d1.w),d2
  1889.  move.b (a0,d0.w),d3
  1890.  sub.w d2,d3
  1891.  
  1892.  move.w d0,d4
  1893.  sub.w d1,d4
  1894.  bgt.s .okpos
  1895.  add.w #16,d4
  1896. .okpos:
  1897.  
  1898.  swap d2
  1899.  swap d3
  1900.  ext.l d4
  1901.  divs.l d4,d3
  1902.  
  1903.  subq #1,d4 ; number of tweens
  1904.  
  1905. .putintween
  1906.  swap d2
  1907.  move.b d2,(a0,d1.w)
  1908.  swap d2
  1909.  add.l d3,d2
  1910.  addq #1,d1
  1911.  and.w #15,d1
  1912.  dbra d4,.putintween
  1913.  
  1914.  cmp.b d0,d7
  1915.  beq.s .doneall
  1916.  
  1917.  move.w d0,d1
  1918.  bra .findnext
  1919.  
  1920. .doneall
  1921.  
  1922.  rts
  1923.  
  1924. IMINTHETOPDAD: dc.w 0
  1925.  
  1926. *************************************
  1927. CALCBRIGHTSINZONE:
  1928.  move.w d0,d1
  1929.  muls #20,d1
  1930.  move.l ZoneBorderPts,a1
  1931.  add.l d1,a1
  1932.  move.l #CurrentPointBrights,a0
  1933.  lea (a0,d1.l*4),a0
  1934.  
  1935.  tst.b IMINTHETOPDAD
  1936.  beq.s .notintopdad
  1937.  adda.w #4,a0
  1938. .notintopdad
  1939.  
  1940. ; A0 points at the brightnesses of the zone points.
  1941. ; a1 points at the border points of the zone.
  1942. ; list is terminated with -1.
  1943.  
  1944.  move.l Points,a3
  1945.  
  1946.  move.w thisxpos,oldx
  1947.  move.w thiszpos,oldz
  1948.  move.w #10,speed
  1949.  move.w #0,Range
  1950.  
  1951. DOPTBR
  1952.  move.w (a1)+,d0    ;pt number
  1953.  blt DONEPTBR
  1954.  
  1955.  move.w (a3,d0.w*4),newx
  1956.  move.w 2(a3,d0.w*4),newz
  1957.  
  1958.  movem.l d0-d7/a0-a6,-(a7)
  1959.  jsr HeadTowardsAng
  1960.  movem.l (a7)+,d0-d7/a0-a6
  1961.  
  1962.  move.w AngRet,d1
  1963.  neg.w d1
  1964.  and.w #8191,d1
  1965.  asr.w #8,d1
  1966.  asr.w #1,d1
  1967.  
  1968.  move.w (a0),d0
  1969.  bge.s .okpos
  1970.  add.w #332,d0
  1971.  asr.w #2,d0
  1972.  neg.w d0
  1973.  add.w #332,d0
  1974.  
  1975. .okpos
  1976.  sub.w #300,d0
  1977.  bge.s .okpos3
  1978.  move.w #0,d0
  1979. .okpos3:
  1980.  move.b d0,d2
  1981.  asr.b #1,d2
  1982.  add.b d2,d0
  1983.  move.b d0,(a2,d1.w)
  1984.  move.w 2(a0),d0
  1985.  bge.s .okpos2
  1986.  add.w #332,d0
  1987.  asr.w #2,d0
  1988.  neg.w d0
  1989.  add.w #332,d0
  1990. .okpos2
  1991.  sub.w #300,d0
  1992.  bge.s .okpos4
  1993.  move.w #0,d0
  1994. .okpos4:
  1995.  
  1996.  move.b d0,d2
  1997.  asr.b #1,d2
  1998.  add.b d2,d0
  1999.  move.b d0,16(a2,d1.w)
  2000.  adda.w #8,a0
  2001.  
  2002.  bra DOPTBR
  2003. DONEPTBR
  2004.  rts
  2005.  
  2006. thisxpos: dc.w 0
  2007. thiszpos: dc.w 0
  2008. FACINGANG: dc.w 0
  2009.  
  2010. ANGLEBRIGHTS: ds.l 8*2
  2011.  
  2012. Brights:
  2013.  dc.w 3
  2014.  dc.w 8,9,10,11,12
  2015.  dc.w 15,16,17,18,19
  2016.  dc.w 21,22,23,24,25,26,27
  2017.  dc.w 29,30,31,32,33
  2018.  dc.w 36,37,38,39,40
  2019.  dc.w 45
  2020.  
  2021. Brights2:
  2022.  dc.w 3
  2023.  dc.w 12,11,10,9,8
  2024.  dc.w 19,18,17,16,15
  2025.  dc.w 27,26,25,24,23,22,21
  2026.  dc.w 33,32,31,30,29
  2027.  dc.w 40,39,38,37,36
  2028.  dc.w 45
  2029.  
  2030.  
  2031. PALS:
  2032.  ds.l 2*49
  2033.  
  2034. willy:
  2035.  dc.w 0,0,0,0,0,0,0
  2036.  dc.w 5,5,5,5,5,5,5
  2037.  dc.w 10,10,10,10,10,10,10
  2038.  dc.w 15,15,15,15,15,15,15
  2039.  dc.w 20,20,20,20,20,20,20
  2040.  dc.w 25,25,25,25,25,25,25
  2041.  dc.w 30,30,30,30,30,30,30
  2042.  
  2043. willybright:
  2044.  dc.w 30,30,30,30,30,30,30
  2045.  dc.w 30,20,20,20,20,20,30
  2046.  dc.w 30,20,6,3,6,20,30
  2047.  dc.w 30,20,6,0,6,20,30
  2048.  dc.w 30,20,6,6,6,20,30
  2049.  dc.w 30,20,20,20,20,20,30
  2050.  dc.w 30,30,30,30,30,30,30
  2051.  
  2052. xzangs:
  2053.  dc.w 0,23,10,20,16,16,20,10
  2054.  dc.w 23,0,20,-10,16,-16,10,-20
  2055.  dc.w 0,-23,-10,-20,-16,-16,-20,-10
  2056.  dc.w -23,0,-20,10,-16,16,-10,20
  2057.  
  2058. guff:
  2059.  incbin "ab3:includes/guff"
  2060.  
  2061. midx: dc.w 0
  2062. objpixwidth: dc.w 0
  2063. tmptst: dc.l 0
  2064. toppt: dc.l 0
  2065. doneit: dc.w 0
  2066. replaceend: dc.w 0
  2067. saveend: dc.w 0
  2068. midobj: dc.l 0
  2069. obadd: dc.l 0 
  2070. DOWN_STRIP: dc.w 0
  2071. WAD_PTR: dc.l 0
  2072. PTR_PTR: dc.l 0
  2073.  
  2074. PolyAngPtr: dc.l 0
  2075. PointAngPtr: dc.l 0
  2076.  
  2077.  ds.w 100
  2078. objintocop:
  2079.  incbin "ab3:includes/XTOCOPX"
  2080.  ds.w 100
  2081.  
  2082.    *********************************
  2083. ***************************************
  2084.    ********************************* 
  2085. tstddd: dc.l 0 
  2086.  
  2087. polybehind:
  2088.  rts
  2089.  
  2090. SORTIT: dc.w 0
  2091.  
  2092. objbright:
  2093.  dc.w 0
  2094. ObjAng: dc.w 0
  2095.  
  2096. POLYMIDDLEY: dc.w 0
  2097. OBJONOFF: dc.l 0
  2098.  
  2099. PolygonObj:
  2100.  
  2101. ************************
  2102.  
  2103. ; move.w 4(a0),d0    ; ypos
  2104. ; move.w 2(a0),d1
  2105. ; add.w #2,d1
  2106. ; add.w d1,d0
  2107. ; cmp.w #-48,d0
  2108. ; blt nobounce
  2109. ; neg.w d1
  2110. ; add.w d1,d0
  2111. ;nobounce:
  2112. ; move.w d1,2(a0)
  2113. ; move.w d0,4(a0)
  2114.  
  2115. ; add.w #80*2,boxang
  2116. ; and.w #8191,boxang
  2117.  
  2118. ************************
  2119.  
  2120.  move.w Facing(a0),ObjAng
  2121.  
  2122.  move.w MIDDLEY,POLYMIDDLEY
  2123.  
  2124.  move.w (a0)+,d0
  2125.  move.l ObjectPoints,a4
  2126.  
  2127.  move.w (a4,d0.w*8),thisxpos
  2128.  move.w 4(a4,d0.w*8),thiszpos
  2129.  
  2130.  move.w 2(a1,d0.w*8),d1    ; zpos of mid
  2131.  blt polybehind
  2132.  bgt.s .okinfront
  2133.  
  2134.  move.l a0,a3
  2135.  sub.l PLR1_Obj,a3
  2136.  cmp.l #130,a3
  2137.  bne polybehind
  2138.  
  2139.  move.w #1,d1
  2140.  move.w #80,POLYMIDDLEY
  2141.  tst.b FULLSCR
  2142.  beq.s .okinfront
  2143.  move.w #120,POLYMIDDLEY
  2144. .okinfront:
  2145.  
  2146.  movem.l d0-d7/a0-a6,-(a7)
  2147.  
  2148.  jsr CALCBRIGHTRINGS
  2149.  
  2150.  move.l #ANGLEBRIGHTS,a0
  2151.  move.l #PointAndPolyBrights,a1
  2152.  move.w #15,d7
  2153.  move.w #8,d6
  2154. MYacross:
  2155.  moveq #0,d3
  2156.  moveq #0,d4
  2157.  
  2158.  move.b 16(a0,d6.w),d4
  2159.  bge.s .okp2
  2160.  moveq #0,d4
  2161. .okp2
  2162.  
  2163.  move.b (a0,d6.w),d3
  2164.  bge.s .okp1
  2165.  moveq #0,d3
  2166. .okp1
  2167.  
  2168.  sub.w d3,d4
  2169.  swap d3
  2170.  swap d4
  2171.  divs.l #8,d4
  2172.  moveq #7,d2
  2173.  moveq #3*16,d5
  2174. .down:
  2175.  swap d3
  2176.  move.b d3,(a1,d5.w)
  2177.  swap d3
  2178.  add.w #16,d5
  2179.  add.l d4,d3
  2180.  dbra d2,.down
  2181.  
  2182. TOPPART:
  2183.  
  2184.  moveq #0,d3
  2185.  moveq #0,d4
  2186.  
  2187.  bchg #3,d6
  2188.  
  2189.  move.b (a0,d6.w),d4
  2190.  bge.s .okp2
  2191.  moveq #0,d4
  2192. .okp2
  2193.  
  2194.  bchg #3,d6
  2195.  
  2196.  move.b (a0,d6.w),d3
  2197.  bge.s .okp1
  2198.  moveq #0,d3
  2199. .okp1
  2200.  
  2201.  sub.w d3,d4
  2202.  swap d3
  2203.  swap d4
  2204.  divs.l #8,d4
  2205.  asr.l #1,d4    ; halfway
  2206.  moveq #3,d2
  2207.  moveq #3*16,d5
  2208. .down:
  2209.  swap d3
  2210.  move.b d3,(a1,d5.w)
  2211.  swap d3
  2212.  sub.w #16,d5
  2213.  add.l d4,d3
  2214.  dbra d2,.down
  2215.  
  2216. BOTPART:
  2217.  
  2218.  moveq #0,d3
  2219.  moveq #0,d4
  2220.  
  2221.  bchg #3,d6
  2222.  
  2223.  move.b 16(a0,d6.w),d4
  2224.  bge.s .okp2
  2225.  moveq #0,d4
  2226. .okp2
  2227.  
  2228.  bchg #3,d6
  2229.  
  2230.  move.b 16(a0,d6.w),d3
  2231.  bge.s .okp1
  2232.  moveq #0,d3
  2233. .okp1
  2234.  
  2235.  sub.w d3,d4
  2236.  swap d3
  2237.  swap d4
  2238.  divs.l #8,d4
  2239.  asr.l #1,d4    ; halfway
  2240.  moveq #3,d2
  2241.  move.w #11*16,d5
  2242. .down:
  2243.  swap d3
  2244.  move.b d3,(a1,d5.w)
  2245.  swap d3
  2246.  add.w #16,d5
  2247.  add.l d4,d3
  2248.  dbra d2,.down
  2249.  
  2250.  
  2251.  subq #1,d6
  2252.  and.w #$f,d6
  2253.  addq #1,a1
  2254.  dbra d7,MYacross
  2255.  
  2256.  movem.l (a7)+,d0-d7/a0-a6
  2257.  
  2258.  
  2259.  move.w (a0),d2
  2260.  move.w d1,d3
  2261.  asr.w #7,d3
  2262.  add.w d3,d2
  2263.  move.w d2,objbright
  2264.  
  2265.  move.w topclip,d2
  2266.  move.w botclip,d3
  2267.  
  2268.  asr.w #1,d2
  2269.  asr.w #1,d3
  2270.  
  2271. ; move.w #10,d2
  2272. ; move.w #70,d3
  2273.  
  2274. ; move.w #10,leftclipb
  2275. ; move.w #85,rightclipb
  2276.  
  2277.  move.w d2,objclipt
  2278.  move.w d3,objclipb
  2279.  
  2280. ; dont use d1 here.
  2281.  
  2282.  move.w 6(a0),d5
  2283.  move.l #POLYOBJECTS,a3
  2284.  move.l (a3,d5.w*4),a3
  2285.  
  2286.  move.w (a3)+,SORTIT
  2287.  
  2288.  move.l a3,START_OF_OBJ
  2289.  
  2290. *******************************************************************
  2291. ***************************************************************
  2292. *****************************************************************
  2293.  
  2294.  move.w (a3)+,num_points
  2295.  move.w (a3)+,d6    ; num_frames
  2296.  
  2297.  
  2298.  move.l a3,POINTER_TO_POINTERS
  2299.  lea (a3,d6.w*4),a3
  2300.  
  2301.  move.l a3,LinesPtr
  2302.  
  2303.  moveq #0,d5
  2304.  move.w 8(a0),d5
  2305.  
  2306. ************************************************
  2307. * Just for charles (animate automatically)
  2308. ; add.w #1,d5
  2309. ; cmp.w d6,d5
  2310. ; blt.s okless
  2311. ; moveq #0,d5
  2312. ;okless:
  2313. ; move.w d5,8(a0)
  2314. ************************************************ 
  2315.  
  2316.  moveq #0,d2
  2317.  move.l POINTER_TO_POINTERS,a4
  2318.  move.w (a4,d5.w*4),d2
  2319.  add.l START_OF_OBJ,d2
  2320.  move.l d2,PtsPtr
  2321.  move.w 2(a4,d5.w*4),d5
  2322.  add.l START_OF_OBJ,d5
  2323.  move.l d5,PolyAngPtr
  2324.  move.l d2,a3
  2325.  move.w num_points,d5
  2326.  
  2327.  move.l (a3)+,OBJONOFF
  2328.  
  2329.  move.l a3,PointAngPtr
  2330.  move.w d5,d2
  2331.  moveq #0,d3
  2332.  lsr.w #1,d2
  2333.  addx.w d3,d2
  2334.  add.w d2,d2
  2335.  add.w d2,a3
  2336.  subq #1,d5
  2337.  
  2338.  move.l #boxrot,a4
  2339.  
  2340.  move.w ObjAng,d2
  2341.  sub.w #2048,d2
  2342.  sub.w angpos,d2
  2343.  and.w #8191,d2
  2344.  move.l #SineTable,a2
  2345.  lea (a2,d2.w),a5
  2346.  move.l #boxbrights,a6
  2347.      
  2348.  move.w (a5),d6
  2349.  move.w 2048(a5),d7
  2350.          
  2351. rotobj:
  2352.  move.w (a3),d2    ; xpt
  2353.  move.w 2(a3),d3    ; ypt
  2354.  move.w 4(a3),d4    ; zpt
  2355.  
  2356. ; add.w d2,d2
  2357. ; add.w d3,d3
  2358. ; add.w d4,d4
  2359.  
  2360. ; first rotate around z axis.
  2361.  
  2362. ; move.w d2,d6
  2363. ; move.w d3,d7
  2364. ; muls 2048(a2),d3
  2365. ; muls (a2),d2
  2366. ; sub.l d3,d2    ; newx
  2367. ; muls (a2),d7
  2368. ; muls 2048(a2),d6
  2369. ; add.l d7,d6    ; newy
  2370. ; add.l d6,d6
  2371. ; swap d6
  2372. ; add.l d2,d2
  2373. ; swap d2
  2374. ; move.w d6,d3    ; newy
  2375.  
  2376.  muls d7,d4
  2377.  muls d6,d2
  2378.  sub.l d4,d2
  2379.  asr.l #8,d2
  2380.  asr.l #2,d2
  2381.  move.l d2,(a4)+
  2382.  ext.l d3
  2383.  asl.l #5,d3
  2384.  move.l d3,(a4)+
  2385.  move.w (a3),d2
  2386.  move.w 4(a3),d4
  2387.  muls d6,d4
  2388.  muls d7,d2
  2389.  add.l d2,d4
  2390. ; add.l d4,d4
  2391.  swap d4
  2392.  move.w d4,(a4)+
  2393.  
  2394.  addq #6,a3
  2395.  dbra d5,rotobj
  2396.  
  2397.  
  2398.  
  2399.  move.l 4(a1,d0.w*8),d0    ; xpos of mid
  2400.  
  2401.  move.w num_points,d7
  2402.  move.l #boxrot,a2
  2403.  move.l #boxonscr,a3
  2404.  move.l #boxbrights,a6
  2405.  move.w 2(a0),d2
  2406.  subq #1,d7
  2407.  
  2408.  tst.b FULLSCR
  2409.  beq.s smallconv
  2410.  
  2411.  move.w d1,d3
  2412.  asl.w #1,d1
  2413.  add.w d3,d1
  2414.  
  2415.  ext.l d2
  2416.  asl.l #7,d2
  2417.  sub.l yoff,d2
  2418.  asl.l #1,d2
  2419. .convtoscr
  2420.  move.l (a2),d3
  2421.  add.l d0,d3
  2422.  move.l d3,(a2)+
  2423.  move.l (a2),d4
  2424.  add.l d2,d4
  2425.  move.l d4,(a2)+
  2426.  move.w (a2),d5
  2427.  add.w d1,d5
  2428.  ble .ptbehind
  2429.  move.w d5,(a2)+
  2430.  add.w d5,d5
  2431.  
  2432.  move.l d3,d6
  2433.  add.l d6,d6
  2434.  add.l d6,d3
  2435.  move.l d4,d6
  2436.  add.l d6,d6
  2437.  add.l d6,d4
  2438.  
  2439.  divs d5,d3
  2440.  divs d5,d4
  2441.  add.w MIDDLEX,d3
  2442.  add.w d4,d4
  2443.  add.w POLYMIDDLEY,d4
  2444.  asr.w #1,d4
  2445.  move.w d3,(a3)+
  2446.  move.w d4,(a3)+
  2447.  
  2448.  dbra d7,.convtoscr
  2449.  bra DONECONV
  2450.  
  2451. .ptbehind:
  2452.  move.w d5,(a2)+
  2453.  move.w #32767,(a3)+
  2454.  move.w #32767,(a3)+
  2455.  dbra d7,.convtoscr
  2456.  bra DONECONV
  2457.  
  2458. smallconv:
  2459.  
  2460. ; asl.w #1,d1
  2461.  ext.l d2
  2462.  asl.l #7,d2
  2463.  sub.l yoff,d2
  2464. ; asl.l #1,d2 
  2465. .convtoscr
  2466.  move.l (a2),d3
  2467.  add.l d0,d3
  2468.  move.l d3,(a2)+
  2469.  move.l (a2),d4
  2470.  add.l d2,d4
  2471.  move.l d4,(a2)+
  2472.  move.w (a2),d5
  2473.  add.w d1,d5
  2474.  ble .ptbehind2
  2475.  move.w d5,(a2)+
  2476.  divs d5,d3
  2477.  divs d5,d4
  2478.  add.w d3,d3
  2479.  add.w MIDDLEX,d3
  2480.  asr.w #1,d3
  2481.  add.w d4,d4
  2482.  add.w POLYMIDDLEY,d4
  2483.  asr.w #1,d4
  2484.  move.w d3,(a3)+
  2485.  move.w d4,(a3)+
  2486.  
  2487.  dbra d7,.convtoscr
  2488.  
  2489.  bra DONECONV
  2490.  
  2491. .ptbehind2:
  2492.  move.w d5,(a2)+
  2493.  move.w #32767,(a3)+
  2494.  move.w #32767,(a3)+
  2495.  dbra d7,.convtoscr
  2496.  
  2497. DONECONV
  2498.  
  2499. **************************
  2500.  move.w num_points,d7
  2501.  
  2502.  move.l #boxbrights,a6
  2503.  subq #1,d7
  2504.  move.l PointAngPtr,a0
  2505.  move.l #PointAndPolyBrights,a2
  2506.  move.w ObjAng,d2
  2507.  asr.w #8,d2
  2508.  asr.w #1,d2
  2509.  st d5
  2510.  
  2511. calcpointangbrights:
  2512.  
  2513.  moveq #0,d0
  2514.  move.b (a0)+,d0
  2515.  move.b d0,d3
  2516.  add.w d2,d3
  2517.  and.w #$f,d3
  2518.  and.w #$f0,d0
  2519.  add.w d3,d0
  2520.  
  2521.  moveq #0,d1
  2522.  move.b (a2,d0.w),d1
  2523.  bge.s .okpos
  2524.  moveq #0,d1
  2525. .okpos:
  2526.  
  2527.  cmp.w #31,d1
  2528.  ble.s .oksmall
  2529.  move.w #31,d1
  2530. .oksmall:
  2531.  
  2532.  move.w d1,(a6)+
  2533.  
  2534.  dbra d7,calcpointangbrights
  2535.  
  2536. *************************
  2537.  
  2538.  
  2539.  
  2540.  move.l LinesPtr,a1
  2541.  
  2542. ; Now need to sort parts of object
  2543. ; into order.
  2544.  
  2545.  move.l #PartBuffer,a0
  2546.  move.l a0,a2
  2547.  move.w #63,d0
  2548. clrpartbuff:
  2549.  
  2550.  move.l #$80000001,(a2)
  2551.  addq #4,a2
  2552.  
  2553.  dbra d0,clrpartbuff
  2554.  
  2555.  move.l #boxrot,a2
  2556.  
  2557.  move.l OBJONOFF,d5
  2558.  
  2559.  tst.w SORTIT
  2560.  bne.s PutinParts
  2561.  
  2562.  
  2563. putinunsorted:
  2564.  
  2565.  move.w (a1)+,d7
  2566.  
  2567.  
  2568.  blt doneallparts
  2569.  
  2570.  lsr.l #1,d5
  2571.  bcs.s .yeson
  2572.  addq #2,a1
  2573.  bra putinunsorted 
  2574. .yeson:
  2575.  
  2576.  
  2577.  move.w (a1)+,d6
  2578.  move.l #0,(a0)+
  2579.  move.w d7,(a0)
  2580.  addq #4,a0
  2581.  
  2582.  bra putinunsorted
  2583.  
  2584.  
  2585. PutinParts
  2586.  move.w (a1)+,d7
  2587.  blt doneallparts
  2588.  
  2589.  lsr.l #1,d5
  2590.  bcs.s .yeson
  2591.  addq #2,a1
  2592.  bra PutinParts
  2593. .yeson:
  2594.  
  2595.  move.w (a1)+,d6
  2596.  move.l (a2,d6.w),d0
  2597.  asr.l #7,d0
  2598.  muls d0,d0
  2599.  move.l 4(a2,d6.w),d2
  2600.  asr.l #7,d2
  2601.  muls d2,d2
  2602.  add.l d2,d0 
  2603.  move.w 8(a2,d6.w),d2
  2604.  muls d2,d2
  2605.  add.l d2,d0
  2606.  move.l #PartBuffer-8,a0
  2607.  
  2608. stillfront
  2609.  addq #8,a0
  2610.  cmp.l (a0),d0
  2611.  blt stillfront
  2612.  move.l #endparttab-8,a5
  2613. domoreshift:
  2614.  move.l -8(a5),(a5)
  2615.  move.l -4(a5),4(a5)
  2616.  subq #8,a5
  2617.  cmp.l a0,a5
  2618.  bgt.s domoreshift
  2619.  
  2620.  move.l d0,(a0)
  2621.  move.w d7,4(a0)
  2622.  
  2623.  bra PutinParts
  2624.  
  2625. doneallparts:
  2626.  
  2627.  move.l #PartBuffer,a0
  2628.  
  2629. Partloop:
  2630.  move.l (a0)+,d7
  2631.  blt nomoreparts
  2632.  
  2633.  moveq #0,d0
  2634.  move.w (a0),d0
  2635.  addq #4,a0
  2636.  add.l START_OF_OBJ,d0
  2637.  move.l d0,a1
  2638.  move.w #0,firstpt
  2639.  
  2640. polyloo:
  2641.  
  2642.  tst.w (a1)
  2643.  blt.s nomorepolys
  2644.  movem.l a0/a1/d7,-(a7)
  2645.  bsr doapoly
  2646.  movem.l (a7)+,a0/a1/d7
  2647.  
  2648.  move.w (a1),d0
  2649.  lea 18(a1,d0.w*4),a1
  2650.  
  2651.  bra.s polyloo
  2652. nomorepolys
  2653.  
  2654.  bra Partloop
  2655.  
  2656. nomoreparts:
  2657.  rts
  2658.  
  2659. firstpt: dc.w 0
  2660.  
  2661. PartBuffer:
  2662.  ds.w 4*32
  2663. endparttab:
  2664.  
  2665. polybright: dc.l 0
  2666. PolyAng: dc.w 0
  2667.  
  2668. doapoly:
  2669.  
  2670.  move.w #960,Left
  2671.  move.w #-10,Right
  2672.  
  2673.  move.w (a1)+,d7    ; lines to draw 
  2674.  move.w (a1)+,preholes
  2675.  move.w 12(a1,d7.w*4),pregour
  2676.  move.l #boxonscr,a3
  2677.  
  2678.  movem.l d0-d7/a0-a6,-(a7)
  2679. * Check for any of these points behind...
  2680.  
  2681. checkbeh:
  2682.  move.w (a1),d0
  2683.  
  2684.  cmp.w #32767,(a3,d0.w*4)
  2685.  bne.s .notbeh
  2686.  cmp.w #32767,2(a3,d0.w*4)
  2687.  bne.s .notbeh
  2688.  
  2689.  movem.l (a7)+,d0-d7/a0-a6
  2690.  bra polybehind
  2691.  
  2692. .notbeh:
  2693.  
  2694.  addq #4,a1
  2695.  dbra d7,checkbeh
  2696.  
  2697.  
  2698.  movem.l (a7)+,d0-d7/a0-a6
  2699.  
  2700.  
  2701.  move.w (a1),d0
  2702.  move.w 4(a1),d1
  2703.  move.w 8(a1),d2
  2704.  move.w 2(a3,d0.w*4),d3
  2705.  move.w 2(a3,d1.w*4),d4
  2706.  move.w 2(a3,d2.w*4),d5
  2707.  move.w (a3,d0.w*4),d0
  2708.  move.w (a3,d1.w*4),d1
  2709.  move.w (a3,d2.w*4),d2
  2710.  
  2711.  sub.w d1,d0    ;x1
  2712.  sub.w d1,d2    ;x2
  2713.  sub.w d4,d3    ;y1
  2714.  sub.w d4,d5    ;y2
  2715.  
  2716.  muls d3,d2
  2717.  muls d5,d0
  2718.  sub.l d0,d2
  2719.  ble polybehind
  2720.  
  2721.  move.l #boxrot,a3
  2722.  move.w (a1),d0
  2723.  move.w d0,d1
  2724.  asl.w #2,d0
  2725.  add.w d1,d0
  2726.  move.w 4(a1),d1
  2727.  move.l d1,d2
  2728.  asl.w #2,d1
  2729.  add.w d2,d1
  2730.  move.w 8(a1),d2
  2731.  move.w d2,d3
  2732.  asl.w #2,d2
  2733.  add.w d3,d2
  2734.  move.l 4(a3,d0.w*2),d3
  2735.  move.l 4(a3,d1.w*2),d4
  2736.  move.l 4(a3,d2.w*2),d5
  2737.  move.l (a3,d0.w*2),d0
  2738.  move.l (a3,d1.w*2),d1
  2739.  move.l (a3,d2.w*2),d2
  2740.  
  2741.  sub.l d1,d0    ;x1
  2742.  sub.l d1,d2    ;x2
  2743.  sub.l d4,d3    ;y1
  2744.  sub.l d4,d5    ;y2
  2745.  
  2746.  asr.l #7,d0
  2747.  asr.l #7,d2
  2748.  asr.l #7,d3
  2749.  asr.l #7,d5
  2750.  
  2751.  muls d3,d2
  2752.  muls d5,d0
  2753.  sub.l d0,d2
  2754.  
  2755.  move.l d2,polybright
  2756.  move.l #boxonscr,a3
  2757.  
  2758.  clr.b drawit
  2759.  
  2760.  tst.b Gouraud(pc)
  2761.  bne.s usegour
  2762.  bsr putinlines
  2763.  bra.s dontusegour
  2764. usegour:
  2765.  bsr putingourlines
  2766. dontusegour:
  2767.  
  2768.  move.w #104*4,linedir
  2769.  move.l frompt,a6
  2770.  
  2771.  tst.b drawit(pc)
  2772.  beq polybehind
  2773.  
  2774.  move.l #PolyTopTab,a4
  2775.  move.w Left(pc),d1
  2776.  move.w Right(pc),d7
  2777.  
  2778.  move.w leftclipb,d3
  2779.  move.w rightclipb,d4
  2780.  cmp.w d3,d7
  2781.  ble polybehind
  2782.  cmp.w d4,d1
  2783.  bge polybehind
  2784.  cmp.w d3,d1
  2785.  bge .notop
  2786.  move.w d3,d1
  2787. .notop
  2788.  cmp.w d4,d7
  2789.  ble .nobot
  2790.  move.w d4,d7
  2791. .nobot
  2792.  
  2793.  add.w d1,d1 
  2794.  lea (a4,d1.w*8),a4
  2795.  asr.w #1,d1
  2796.  sub.w d1,d7
  2797.  ble polybehind
  2798. ; move.w d1,a2
  2799.  move.l #objintocop,a2
  2800.  lea (a2,d1.w*2),a2
  2801.  moveq #0,d0
  2802.  
  2803.  move.l TextureMaps,a0
  2804.  move.w (a1)+,d0
  2805.  ifeq CHEESEY
  2806.  bge.s .notsec
  2807.  and.w #$7fff,d0
  2808.  add.l #65536,a0
  2809. .notsec
  2810.  endc
  2811.  
  2812.  ifne CHEESEY
  2813.  
  2814.  bge.s .notsec
  2815.  and.w #$7fff,d0
  2816.  add.w #%0000010000000000,d0
  2817.  
  2818. .notsec:
  2819.  
  2820.  moveq #0,d1
  2821.  move.w d0,d1   ; 00000XXX 000000YY
  2822.  lsr.w #6,d0
  2823.  add.w d0,d1    ; 00000XXX 000XXXYY
  2824.  and.b #%111,d1 ; 00000XXX 00000XYY
  2825.  add.b d1,d1    ; 00000XXX 0000XYY0
  2826.  lsl.w #4,d1    ; 0XXX0000 XYY00000
  2827.  and.w #%0110000011100000,d1
  2828.  move.w d1,d0
  2829.  
  2830.  endc
  2831.  
  2832.  add.w d0,a0
  2833.  moveq #0,d0
  2834.  moveq #0,d1
  2835.  move.b (a1)+,d1
  2836.  
  2837.  asl.w #5,d1
  2838.  ext.l d1
  2839.  divs #100,d1
  2840.  neg.w d1
  2841.  add.w #31,d1
  2842.  
  2843.  
  2844.  tst.b Holes
  2845.  bne gotholesin
  2846.  tst.b Gouraud(pc)
  2847.  bne gotlurvelyshading
  2848.  
  2849.  move.w ObjAng,d4
  2850.  asr.w #8,d4
  2851.  asr.w #1,d4
  2852.  
  2853.  moveq #0,d2
  2854.  moveq #0,d3
  2855.  move.b (a1)+,d2 
  2856.  move.l PolyAngPtr,a1
  2857.  move.b (a1,d2.w),d2
  2858.  
  2859.  move.b d2,d3
  2860.  add.w d4,d3
  2861.  and.w #$f,d3
  2862.  and.w #$f0,d2
  2863.  add.b d3,d2
  2864.  
  2865.  move.l #PointAndPolyBrights,a1
  2866.  moveq #0,d5
  2867.  move.b (a1,d2.w),d5
  2868.  
  2869.  add.w d5,d1
  2870.  
  2871.  
  2872.  move.l #objscalecols,a1
  2873. ; move.w objbright(pc),d0
  2874. ; add.w d0,d1
  2875.  tst.w d1
  2876.  bge.s toobright
  2877.  move.w #0,d1
  2878. toobright:
  2879.  cmp.w #31,d1
  2880.  blt.s .toodark
  2881.  moveq #31,d1
  2882. .toodark:
  2883.  
  2884.  asl.w #8,d1
  2885. ; move.w (a1,d1.w*2),d1
  2886. ; asl.w #3,d1
  2887.  move.l TexturePal,a1
  2888.  lea (a1,d1.w*2),a1
  2889.  tst.b pregour
  2890.  bne predoglare
  2891.  
  2892. dopoly:
  2893.  
  2894.  move.w #0,offtopby
  2895.  move.l a6,a3
  2896.  adda.w (a2)+,a3
  2897. ; addq #1,a2
  2898.  move.w (a4),d1
  2899.  cmp.w objclipb,d1
  2900.  bge nodl
  2901.  move.w PolyBotTab-PolyTopTab(a4),d2
  2902.  cmp.w objclipt,d2
  2903.  ble nodl
  2904.  cmp.w objclipt,d1
  2905.  bge.s nocl
  2906.  move.w objclipt,d3
  2907.  sub.w d1,d3
  2908.  move.w d3,offtopby
  2909.  move.w objclipt,d1
  2910. nocl: 
  2911.  move.w d2,d0
  2912.  cmp.w objclipb,d2
  2913.  ble.s nocr
  2914.  move.w objclipb,d2
  2915. nocr:
  2916.  
  2917.     ; d1=top end
  2918.     ; d2=bot end
  2919.     
  2920.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  2921.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  2922.     
  2923.  move.l 2(a4),d5
  2924.  move.l 6(a4),d6
  2925.  
  2926.  sub.l d5,d3
  2927.  sub.l d6,d4
  2928.  
  2929. ; asl.w #8,d3
  2930. ; asl.w #8,d4
  2931. ; ext.l d3
  2932. ; ext.l d4
  2933.  
  2934. ; and.b #63,d5
  2935. ; and.b #63,d6
  2936. ; lsl.w #8,d6
  2937. ; move.b d5,d6    ; starting pos
  2938. ; moveq.l #0,d5
  2939. ; move.w d6,d5
  2940.  
  2941.  
  2942.  sub.w d1,d2
  2943.  ble nodl
  2944.  
  2945.  move.w #0,tstdca
  2946.  sub.w d1,d0
  2947.  tst.w offtopby
  2948.  beq.s .notofftop
  2949.  move.l d3,-(a7)
  2950.  move.l d4,-(a7)
  2951.  add.w offtopby,d0
  2952.  ext.l d0    
  2953.  muls.l offtopby-2,d3
  2954.  muls.l offtopby-2,d4
  2955.  divs.l d0,d3
  2956.  divs.l d0,d4
  2957.  
  2958.  add.l d3,d5
  2959.  add.l d4,d6
  2960.  
  2961.  move.l (a7)+,d4
  2962.  move.l (a7)+,d3
  2963. .notofftop: 
  2964.  ext.l d0
  2965.  
  2966.  divs.l d0,d3
  2967.  divs.l d0,d4
  2968.  
  2969.  add.l ontoscr(pc,d1.w*4),a3
  2970.  
  2971.  
  2972.  ifeq CHEESEY
  2973.  move.l #$3fffff,d1
  2974.  endc
  2975.  ifne CHEESEY
  2976.  move.l #$1fffff,d1
  2977.  endc
  2978.  
  2979.  move.l d3,a5
  2980.  moveq #0,d3
  2981.  subq #1,d2
  2982. drawpol:
  2983.  and.l d1,d5
  2984.  and.l d1,d6
  2985.  
  2986.  move.l d6,d0
  2987.  asr.l #8,d0
  2988.  swap d5
  2989.  move.b d5,d0
  2990.  
  2991.  ifeq CHEESEY
  2992.  move.b (a0,d0.w*4),d3
  2993.  endc
  2994.  ifne CHEESEY
  2995.  move.b (a0,d0.w),d3
  2996.  endc
  2997.  
  2998.  swap d5
  2999.  add.l a5,d5
  3000.  add.l d4,d6
  3001.  
  3002.  
  3003.  move.w (a1,d3.w*2),(a3)
  3004.  adda.w #104*4,a3
  3005.  dbra d2,drawpol
  3006.  
  3007. ; add.w a5,d3
  3008. ; addx.l d6,d5
  3009. ; dbcs d2,drawpol2
  3010. ; dbcc d2,drawpol
  3011. ; bra.s pastit
  3012. ;drawpol2:
  3013. ; and.w d1,d5
  3014. ; move.b (a0,d5.w*4),d0
  3015. ; move.w (a1,d0.w*2),(a3)
  3016. ; adda.w #320,a3
  3017. ; add.w a5,d3
  3018. ; addx.l d4,d5
  3019. ; dbcs d2,drawpol2
  3020. ; dbcc d2,drawpol
  3021.  
  3022. pastit:
  3023.  
  3024. nodl:
  3025.  adda.w #16,a4
  3026.  dbra d7,dopoly
  3027.  
  3028.  rts
  3029.  
  3030. ontoscr:
  3031. val SET 0
  3032.  REPT 256
  3033.  dc.l val
  3034. val SET val+104*4
  3035.  ENDR
  3036.  
  3037. predoglare:
  3038.  move.l #SHADINGTABLE-512,a1
  3039.  
  3040. DOGLAREPOLY:
  3041.  
  3042.  move.w #0,offtopby
  3043.  move.l a6,a3
  3044.  adda.w (a2)+,a3
  3045. ; addq #1,a2
  3046.  move.w (a4),d1
  3047.  cmp.w objclipb,d1
  3048.  bge nodlGL
  3049.  move.w PolyBotTab-PolyTopTab(a4),d2
  3050.  cmp.w objclipt,d2
  3051.  ble nodlGL
  3052.  cmp.w objclipt,d1
  3053.  bge.s noclGL
  3054.  move.w objclipt,d3
  3055.  sub.w d1,d3
  3056.  move.w d3,offtopby
  3057.  move.w objclipt,d1
  3058. noclGL:
  3059.  move.w d2,d0
  3060.  cmp.w objclipb,d2
  3061.  ble.s nocrGL
  3062.  move.w objclipb,d2
  3063. nocrGL:
  3064.  
  3065.     ; d1=top end
  3066.     ; d2=bot end
  3067.     
  3068.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3069.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3070.     
  3071.  move.l 2(a4),d5
  3072.  move.l 6(a4),d6
  3073.  
  3074.  sub.l d5,d3
  3075.  sub.l d6,d4
  3076.  
  3077. ; asl.w #8,d3
  3078. ; asl.w #8,d4
  3079. ; ext.l d3
  3080. ; ext.l d4
  3081.  
  3082. ; and.b #63,d5
  3083. ; and.b #63,d6
  3084. ; lsl.w #8,d6
  3085. ; move.b d5,d6    ; starting pos
  3086. ; moveq.l #0,d5
  3087. ; move.w d6,d5
  3088.  
  3089.  
  3090.  sub.w d1,d2
  3091.  ble nodlGL
  3092.  
  3093.  move.w #0,tstdca
  3094.  sub.w d1,d0
  3095.  tst.w offtopby
  3096.  beq.s .notofftop
  3097.  move.l d3,-(a7)
  3098.  move.l d4,-(a7)
  3099.  add.w offtopby,d0
  3100.  ext.l d0    
  3101.  muls.l offtopby-2,d3
  3102.  muls.l offtopby-2,d4
  3103.  divs.l d0,d3
  3104.  divs.l d0,d4
  3105.  
  3106.  add.l d3,d5
  3107.  add.l d4,d6
  3108.  
  3109.  move.l (a7)+,d4
  3110.  move.l (a7)+,d3
  3111. .notofftop: 
  3112.  ext.l d0
  3113.  
  3114.  divs.l d0,d3
  3115.  divs.l d0,d4
  3116.  
  3117.  add.l ontoscrGL(pc,d1.w*4),a3
  3118.  
  3119.  ifeq CHEESEY
  3120.  move.l #$3fffff,d1
  3121.  endc
  3122.  ifne CHEESEY
  3123.  move.l #$1fffff,d1
  3124.  endc
  3125.  
  3126.  move.l d3,a5
  3127.  moveq #0,d3
  3128.  subq #1,d2
  3129. drawpolGL:
  3130.  and.l d1,d5
  3131.  and.l d1,d6
  3132.  
  3133.  move.l d6,d0
  3134.  asr.l #8,d0
  3135.  swap d5
  3136.  move.b d5,d0
  3137.  
  3138.  ifeq CHEESEY
  3139.  move.b (a0,d0.w*4),d3
  3140.  endc
  3141.  ifne CHEESEY
  3142.  move.b (a0,d0.w),d3
  3143.  endc
  3144.  beq.s itsblack
  3145.  
  3146.  lsl.w #8,d3
  3147.  move.b (a3),d3
  3148.  
  3149.  swap d5
  3150.  add.l a5,d5
  3151.  add.l d4,d6
  3152.  
  3153.  move.w (a1,d3.w*2),(a3)
  3154.  adda.w #104*4,a3
  3155.  dbra d2,drawpolGL
  3156.  
  3157. nodlGL:
  3158.  adda.w #16,a4
  3159.  dbra d7,DOGLAREPOLY
  3160.  
  3161.  rts
  3162.  
  3163. itsblack:
  3164.  swap d5
  3165.  add.l a5,d5
  3166.  add.l d4,d6 
  3167.  adda.w #104*4,a3
  3168.  dbra d2,drawpolGL
  3169.  adda.w #16,a4
  3170.  dbra d7,DOGLAREPOLY
  3171.  
  3172.  rts
  3173.  
  3174. ontoscrGL:
  3175. val SET 0
  3176.  REPT 256
  3177.  dc.l val
  3178. val SET val+104*4
  3179.  ENDR
  3180.  
  3181. tstdca: dc.l 0
  3182.  dc.w 0
  3183. offtopby: dc.w 0
  3184. LinesPtr: dc.l 0
  3185. PtsPtr: dc.l 0
  3186.  
  3187. gotlurvelyshading:
  3188.  move.l TexturePal,a1
  3189.  tst.b pregour
  3190. ; beq.s .noshiny
  3191. ; add.l #256*32,a1
  3192. ;.noshiny:
  3193. ; neg.w d1
  3194. ; add.w #14,d1
  3195. ; bge.s toobrightg
  3196. ; move.w #0,d1
  3197. ;toobrightg:
  3198. ; asl.w #8,d1
  3199. ; lea (a1,d1.w*2),a1
  3200.  
  3201. dopolyg:
  3202.  move.l d7,-(a7)
  3203.  move.w #0,offtopby
  3204.  move.l a6,a3
  3205.  adda.w (a2)+,a3
  3206. ; addq #1,a2
  3207.  move.w (a4),d1
  3208.  cmp.w objclipb,d1
  3209.  bge nodlg
  3210.  move.w PolyBotTab-PolyTopTab(a4),d2
  3211.  cmp.w objclipt(pc),d2
  3212.  ble nodlg
  3213.  cmp.w objclipt(pc),d1
  3214.  bge.s noclg
  3215.  move.w objclipt,d3
  3216.  sub.w d1,d3
  3217.  move.w d3,offtopby
  3218.  move.w objclipt(pc),d1
  3219. noclg: 
  3220.  move.w d2,d0
  3221.  cmp.w objclipb(pc),d2
  3222.  ble.s nocrg
  3223.  move.w objclipb(pc),d2
  3224. nocrg:
  3225.  
  3226.     ; d1=top end
  3227.     ; d2=bot end
  3228.     
  3229.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3230.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3231.     
  3232.  move.l 2(a4),d5
  3233.  move.l 6(a4),d6
  3234.  
  3235.  sub.l d5,d3
  3236.  sub.l d6,d4
  3237.  
  3238. ; asl.w #8,d3
  3239. ; asl.w #8,d4
  3240. ; ext.l d3
  3241. ; ext.l d4
  3242.  
  3243. ; and.b #63,d5
  3244. ; and.b #63,d6
  3245. ; lsl.w #8,d6
  3246. ; move.b d5,d6    ; starting pos
  3247. ; moveq.l #0,d5
  3248. ; move.w d6,d5
  3249.  
  3250.  
  3251.  sub.w d1,d2
  3252.  ble nodlg
  3253.  
  3254.  move.w #0,tstdca
  3255.  sub.w d1,d0
  3256.  tst.w offtopby
  3257.  beq.s .notofftop
  3258.  move.l d3,-(a7)
  3259.  move.l d4,-(a7)
  3260.  add.w offtopby,d0
  3261.  ext.l d0
  3262.  muls.l offtopby-2,d3
  3263.  muls.l offtopby-2,d4
  3264.  divs.l d0,d3
  3265.  divs.l d0,d4
  3266.  
  3267.  add.l d3,d5
  3268.  add.l d4,d6
  3269.  
  3270.  move.l (a7)+,d4
  3271.  move.l (a7)+,d3
  3272. .notofftop
  3273.  ext.l d0
  3274.  
  3275.  divs.l d0,d3
  3276.  divs.l d0,d4
  3277.  
  3278.  add.l ontoscrg(pc,d1.w*4),a3
  3279.  move.w 10+PolyBotTab-PolyTopTab(a4),d1
  3280.  move.w 10(a4),d7
  3281.  sub.w d7,d1
  3282.  asl.w #8,d7
  3283.  swap d1
  3284.  clr.w d1
  3285.  divs.l d0,d1
  3286.  
  3287.  asr.l #8,d1
  3288.  
  3289.  move.l d3,a5
  3290.  moveq #0,d3
  3291.  
  3292.  swap d2
  3293.  move.w d1,d2
  3294.  swap d2
  3295.  
  3296.  ifeq CHEESEY
  3297.  move.l #$3fffff,d1
  3298.  endc
  3299.  ifne CHEESEY
  3300.  move.l #$1fffff,d1
  3301.  endc
  3302.  
  3303.  
  3304.  subq.w #1,d2
  3305. drawpolg:
  3306.  and.l d1,d5
  3307.  and.l d1,d6
  3308.  
  3309.  move.l d6,d0
  3310.  asr.l #8,d0
  3311.  swap d5
  3312.  move.b d5,d0
  3313.  
  3314.  move.w d7,d3
  3315.  
  3316.  ifeq CHEESEY
  3317.  move.b (a0,d0.w*4),d3
  3318.  endc
  3319.  ifne CHEESEY
  3320.  move.b (a0,d0.w),d3
  3321.  endc
  3322.  
  3323.  swap d2
  3324.  swap d5
  3325.  add.l a5,d5
  3326.  add.l d4,d6
  3327.  add.w d2,d7
  3328.  swap d2
  3329.  move.w (a1,d3.w*2),(a3)
  3330.  adda.w #104*4,a3
  3331.  dbra d2,drawpolg
  3332.  
  3333. nodlg:
  3334.  
  3335.  move.l (a7)+,d7
  3336.  adda.w #16,a4
  3337.  dbra d7,dopolyg
  3338.  
  3339.  rts
  3340.  
  3341. ontoscrg:
  3342. val SET 0
  3343.  REPT 256
  3344.  dc.l val
  3345. val SET val+104*4
  3346.  ENDR
  3347.  
  3348.  
  3349.  
  3350.  
  3351. gotholesin:
  3352.  move.w ObjAng,d4
  3353.  asr.w #8,d4
  3354.  asr.w #1,d4
  3355.  
  3356.  moveq #0,d2
  3357.  moveq #0,d3
  3358.  move.b (a1)+,d2
  3359.  
  3360.  move.l PolyAngPtr,a1
  3361.  move.b (a1,d2.w),d2
  3362.  
  3363.  move.b d2,d3
  3364.  lsr.b #4,d3    ;d3=vertical pos
  3365.  add.b d4,d2
  3366.  and.w #$f,d2
  3367.  
  3368.  move.l #ANGLEBRIGHTS,a1
  3369.  moveq #0,d4
  3370.  moveq #0,d5
  3371.  move.b (a1,d2.w),d4    ;top
  3372.  move.b 16(a1,d2.w),d5  ;bottom
  3373.  
  3374.  sub.w d4,d5
  3375.  muls d3,d5
  3376.  divs #14,d5
  3377.  add.w d4,d5
  3378.  
  3379.  add.w d5,d1
  3380.  
  3381.  
  3382.  move.l #objscalecols,a1
  3383.  
  3384. ; move.w objbright(pc),d0
  3385. ; add.w d0,d1
  3386.  tst.w d1
  3387.  bge.s toobrighth
  3388.  move.w #0,d1
  3389. toobrighth:
  3390.  cmp.w #31,d1
  3391.  ble.s toodimh
  3392.  move.w #31,d1
  3393. toodimh:
  3394.  
  3395.  asl.w #8,d1
  3396.  
  3397. ; move.w (a1,d1.w*2),d1
  3398. ; asl.w #3,d1
  3399.  move.l TexturePal,a1
  3400.  lea (a1,d1.w*2),a1
  3401.  tst.b pregour
  3402. ; beq.s .noshiny
  3403. ; add.l #256*32,a1
  3404. ;.noshiny:
  3405.  
  3406. dopolyh:
  3407.  move.w #0,offtopby
  3408.  move.l a6,a3
  3409.  adda.w (a2)+,a3
  3410. ; addq #1,a2
  3411.  move.w (a4),d1
  3412.  cmp.w objclipb,d1
  3413.  bge nodlh
  3414.  move.w PolyBotTab-PolyTopTab(a4),d2
  3415.  cmp.w objclipt,d2
  3416.  ble nodlh
  3417.  cmp.w objclipt,d1
  3418.  bge.s noclh
  3419.  move.w objclipt,d3
  3420.  sub.w d1,d3
  3421.  move.w d3,offtopby
  3422.  move.w objclipt,d1
  3423. noclh: 
  3424.  move.w d2,d0
  3425.  cmp.w objclipb,d2
  3426.  ble.s nocrh
  3427.  move.w objclipb,d2
  3428. nocrh:
  3429.  
  3430.     ; d1=top end
  3431.     ; d2=bot end
  3432.     
  3433.  move.l 2+PolyBotTab-PolyTopTab(a4),d3
  3434.  move.l 6+PolyBotTab-PolyTopTab(a4),d4
  3435.     
  3436.  move.l 2(a4),d5
  3437.  move.l 6(a4),d6
  3438.  
  3439.  sub.l d5,d3
  3440.  sub.l d6,d4
  3441.  
  3442. ; asl.w #8,d3
  3443. ; asl.w #8,d4
  3444. ; ext.l d3
  3445. ; ext.l d4
  3446.  
  3447. ; and.b #63,d5
  3448. ; and.b #63,d6
  3449. ; lsl.w #8,d6
  3450. ; move.b d5,d6    ; starting pos
  3451. ; moveq #-1,d5
  3452. ; lsr.l #1,d5
  3453. ; move.w d6,d5
  3454.  
  3455.  
  3456.  sub.w d1,d2
  3457.  ble nodlh
  3458.  
  3459.  move.w #0,tstdca
  3460.  sub.w d1,d0
  3461.  tst.w offtopby
  3462.  beq.s .notofftop
  3463.  move.l d3,-(a7)
  3464.  move.l d4,-(a7)
  3465.  add.w offtopby,d0
  3466.  ext.l d0
  3467.  muls.l offtopby-2,d3
  3468.  muls.l offtopby-2,d4
  3469.  divs.l d0,d3
  3470.  divs.l d0,d4
  3471.  
  3472.  add.l d3,d5
  3473.  add.l d4,d6
  3474.  
  3475.  move.l (a7)+,d4
  3476.  move.l (a7)+,d3
  3477. .notofftop:
  3478.  ext.l d0
  3479.  
  3480.  divs.l d0,d3
  3481.  divs.l d0,d4
  3482.  
  3483.  add.l ontoscrh(pc,d1.w*4),a3
  3484.  ifeq CHEESEY
  3485.  move.l #$3fffff,d1
  3486.  endc
  3487.  ifne CHEESEY
  3488.  move.l #$1fffff,d1
  3489.  endc
  3490.  
  3491.  move.l d3,a5
  3492.  moveq #0,d3
  3493.  subq #1,d2
  3494. drawpolh:
  3495.  and.l d1,d5
  3496.  and.l d1,d6
  3497.  
  3498.  move.l d6,d0
  3499.  asr.l #8,d0
  3500.  swap d5
  3501.  move.b d5,d0
  3502.  
  3503.  swap d5
  3504.  add.l a5,d5
  3505.  add.l d4,d6
  3506.  
  3507.  ifeq CHEESEY
  3508.  move.b (a0,d0.w*4),d3
  3509.  endc
  3510.  ifne CHEESEY
  3511.  move.b (a0,d0.w),d3
  3512.  endc
  3513.  
  3514.  beq.s .dontplot
  3515.  move.w (a1,d3.w*2),(a3)
  3516. .dontplot
  3517.  adda.w #104*4,a3
  3518.  dbra d2,drawpolh
  3519.  
  3520. pastith:
  3521.  
  3522. nodlh:
  3523.  adda.w #16,a4
  3524.  dbra d7,dopolyh
  3525.  
  3526.  rts
  3527.  
  3528. ontoscrh:
  3529. val SET 0
  3530.  REPT 256
  3531.  dc.l val
  3532. val SET val+104*4
  3533.  ENDR
  3534.  
  3535.  EVEN
  3536. pregour:
  3537.  dc.b 0
  3538. Gouraud:
  3539.  dc.b 0
  3540. preholes:
  3541.  dc.b 0
  3542. Holes: 
  3543.  dc.b 0
  3544.  
  3545. putinlines:
  3546.  
  3547.  move.w (a1),d0
  3548.  move.w 4(a1),d1
  3549.  
  3550.  move.w (a3,d0.w*4),d2
  3551.  move.w 2(a3,d0.w*4),d3
  3552.  move.w (a3,d1.w*4),d4
  3553.  move.w 2(a3,d1.w*4),d5
  3554.  
  3555. ; d2=x1 d3=y1 d4=x2 d5=y2
  3556.  
  3557.  cmp.w d2,d4
  3558.  beq thislineflat
  3559.  bgt thislineontop
  3560.  move.l #PolyBotTab,a4
  3561.  exg d2,d4
  3562.  exg d3,d5
  3563.  
  3564.  cmp.w rightclipb,d2
  3565.  bge thislineflat
  3566.  cmp.w leftclipb,d4
  3567.  ble thislineflat
  3568.  move.w rightclipb,d6
  3569.  sub.w d4,d6
  3570.  ble.s .clipr
  3571.  move.w #0,-(a7)
  3572.  cmp.w Right(pc),d4
  3573.  ble.s .nonewbot
  3574.  move.w d4,Right
  3575.  bra.s .nonewbot
  3576.  
  3577. .clipr
  3578.  move.w d6,-(a7)
  3579.  move.w rightclipb,Right
  3580.  sub.w #1,Right
  3581. .nonewbot:
  3582.  
  3583.  move.w #0,offleftby
  3584.  move.w d2,d6
  3585.  cmp.w leftclipb,d6
  3586.  bge .okt
  3587.  move.w leftclipb,d6
  3588.  sub.w d2,d6
  3589.  move.w d6,offleftby
  3590.  add.w d2,d6
  3591. .okt:
  3592.  
  3593.  st drawit
  3594.  add.w d6,d6
  3595.  lea (a4,d6.w*8),a4
  3596.  asr.w #1,d6
  3597.  cmp.w Left(pc),d6
  3598.  bge.s .nonewtop
  3599.  move.w d6,Left
  3600. .nonewtop
  3601.  
  3602.  sub.w d3,d5    ; dy
  3603.  swap d3
  3604.  clr.w d3    ; d2=xpos
  3605.  sub.w d2,d4    ; dx > 0
  3606.  ext.l d4
  3607.  swap d5
  3608.  clr.w d5
  3609.  divs.l d4,d5
  3610.  moveq #0,d2
  3611.  move.b 2(a1),d2
  3612.  ifne CHEESEY
  3613.  asr.w #1,d2
  3614.  endc
  3615.  
  3616.  moveq #0,d6
  3617.  move.b 6(a1),d6
  3618.  ifne CHEESEY
  3619.  asr.w #1,d6
  3620.  endc
  3621.  sub.w d6,d2
  3622.  swap d2
  3623.  swap d6
  3624.  clr.w d2
  3625.  clr.w d6    ; d6=xbitpos
  3626.  divs.l d4,d2
  3627.  move.l d5,a5    ; a5=dy constant
  3628.  move.l d2,a6    ; a6=xbitconst
  3629.  
  3630.  moveq #0,d5
  3631.  move.b 3(a1),d5
  3632.  ifne CHEESEY
  3633.  asr.w #1,d5
  3634.  endc
  3635.  moveq #0,d2
  3636.  move.b 7(a1),d2
  3637.  ifne CHEESEY
  3638.  asr.w #1,d2
  3639.  endc
  3640.  sub.w d2,d5
  3641.  swap d2
  3642.  swap d5
  3643.  clr.w d2    ; d3=ybitpos
  3644.  clr.w d5
  3645.  divs.l d4,d5
  3646.  
  3647.  add.w (a7)+,d4
  3648.  sub.w offleftby(pc),d4
  3649.  blt thislineflat
  3650.  
  3651.  tst.w offleftby(pc)
  3652.  beq.s .noneoffleft
  3653.  move.w d4,-(a7)
  3654.  move.w offleftby(pc),d4
  3655.  dbra d4,.calcnodraw
  3656.  bra .nodrawoffleft
  3657. .calcnodraw
  3658.  
  3659.  add.l a5,d3
  3660.  add.l a6,d6
  3661.  add.l d5,d2
  3662.  dbra d4,.calcnodraw
  3663. .nodrawoffleft:
  3664.  move.w (a7)+,d4
  3665. .noneoffleft:
  3666.  
  3667. .putinline:
  3668.  
  3669.  swap d3
  3670.  move.w d3,(a4)+
  3671.  swap d3
  3672.  move.l d6,(a4)+
  3673.  move.l d2,(a4)+
  3674.  addq #6,a4
  3675.  
  3676.  add.l a5,d3
  3677.  add.l a6,d6
  3678.  add.l d5,d2
  3679.  
  3680.  dbra d4,.putinline
  3681.  
  3682.  bra thislineflat
  3683.  
  3684. thislineontop:
  3685.  move.l #PolyTopTab,a4
  3686.  
  3687.  cmp.w rightclipb,d2
  3688.  bge thislineflat
  3689.  cmp.w leftclipb,d4
  3690.  ble thislineflat
  3691.  move.w rightclipb,d6
  3692.  sub.w d4,d6
  3693.  ble.s .clipr
  3694.  move.w #0,-(a7)
  3695.  cmp.w Right(pc),d4
  3696.  ble.s .nonewbot
  3697.  move.w d4,Right
  3698.  bra.s .nonewbot
  3699.  
  3700. .clipr
  3701.  move.w d6,-(a7)
  3702.  move.w rightclipb,Right
  3703.  sub.w #1,Right
  3704. .nonewbot:
  3705.  
  3706.  move.w #0,offleftby
  3707.  move.w d2,d6
  3708.  cmp.w leftclipb,d6
  3709.  bge .okt
  3710.  move.w leftclipb,d6
  3711.  sub.w d2,d6
  3712.  move.w d6,offleftby
  3713.  add.w d2,d6
  3714. .okt:
  3715.  
  3716.  st drawit
  3717.  add.w d6,d6
  3718.  lea (a4,d6.w*8),a4
  3719.  asr.w #1,d6
  3720.  cmp.w Left(pc),d6
  3721.  bge.s .nonewtop
  3722.  move.w d6,Left
  3723. .nonewtop
  3724.  
  3725.  sub.w d3,d5    ; dy
  3726.  swap d3
  3727.  clr.w d3    ; d2=xpos
  3728.  sub.w d2,d4    ; dx > 0
  3729.  ext.l d4
  3730.  swap d5
  3731.  clr.w d5
  3732.  divs.l d4,d5
  3733.  moveq #0,d2
  3734.  move.b 6(a1),d2
  3735.  ifne CHEESEY
  3736.  asr.w #1,d2
  3737.  endc
  3738.  moveq #0,d6
  3739.  move.b 2(a1),d6
  3740.  ifne CHEESEY
  3741.  asr.w #1,d6
  3742.  endc
  3743.  sub.w d6,d2
  3744.  swap d2
  3745.  swap d6
  3746.  clr.w d2
  3747.  clr.w d6    ; d6=xbitpos
  3748.  divs.l d4,d2
  3749.  move.l d5,a5    ; a5=dy constant
  3750.  move.l d2,a6    ; a6=xbitconst
  3751.  
  3752.  moveq #0,d5
  3753.  move.b 7(a1),d5
  3754.  ifne CHEESEY
  3755.  asr.w #1,d5
  3756.  endc
  3757.  moveq #0,d2
  3758.  move.b 3(a1),d2
  3759.  ifne CHEESEY
  3760.  asr.w #1,d2
  3761.  endc
  3762.  sub.w d2,d5
  3763.  swap d2
  3764.  swap d5
  3765.  clr.w d2    ; d3=ybitpos
  3766.  clr.w d5
  3767.  divs.l d4,d5
  3768.  
  3769.  add.w (a7)+,d4
  3770.  sub.w offleftby(pc),d4
  3771.  blt.s thislineflat
  3772.  
  3773.  tst.w offleftby(pc)
  3774.  beq.s .noneoffleft
  3775.  move.w d4,-(a7)
  3776.  move.w offleftby(pc),d4
  3777.  dbra d4,.calcnodraw
  3778.  bra .nodrawoffleft
  3779. .calcnodraw
  3780.  
  3781.  add.l a5,d3
  3782.  add.l a6,d6
  3783.  add.l d5,d2
  3784.  dbra d4,.calcnodraw
  3785. .nodrawoffleft:
  3786.  move.w (a7)+,d4
  3787. .noneoffleft:
  3788.  
  3789.  
  3790. .putinline:
  3791.  
  3792.  swap d3
  3793.  move.w d3,(a4)+
  3794.  swap d3
  3795.  move.l d6,(a4)+
  3796.  move.l d2,(a4)+
  3797.  addq #6,a4
  3798.  
  3799.  add.l a5,d3
  3800.  add.l a6,d6
  3801.  add.l d5,d2
  3802.  
  3803.  dbra d4,.putinline
  3804.  
  3805. thislineflat:
  3806.  addq #4,a1
  3807.  dbra d7,putinlines
  3808.  addq #4,a1
  3809.  rts
  3810.  
  3811. putingourlines:
  3812.  
  3813.  move.l #boxbrights,a2
  3814.  
  3815. piglloop:
  3816.  
  3817.  move.w (a1),d0
  3818.  move.w 4(a1),d1
  3819.  
  3820.  move.w (a3,d0.w*4),d2
  3821.  move.w 2(a3,d0.w*4),d3
  3822.  move.w (a3,d1.w*4),d4
  3823.  move.w 2(a3,d1.w*4),d5
  3824.  
  3825.  
  3826.  
  3827.  cmp.w d2,d4
  3828.  beq thislineflatgour
  3829.  bgt thislineontopgour
  3830.  move.l #PolyBotTab,a4
  3831.  exg d2,d4
  3832.  exg d3,d5
  3833.  
  3834.  cmp.w rightclipb,d2
  3835.  bge thislineflatgour
  3836.  cmp.w leftclipb,d4
  3837.  ble thislineflatgour
  3838.  move.w rightclipb,d6
  3839.  sub.w d4,d6
  3840.  ble.s .clipr
  3841.  move.w #0,-(a7)
  3842.  cmp.w Right(pc),d4
  3843.  ble.s .nonewbot
  3844.  move.w d4,Right
  3845.  bra.s .nonewbot
  3846.  
  3847. .clipr
  3848.  move.w d6,-(a7)
  3849.  move.w rightclipb,Right
  3850.  sub.w #1,Right
  3851. .nonewbot:
  3852.  
  3853.  move.w #0,offleftby
  3854.  move.w d2,d6
  3855.  cmp.w leftclipb,d6
  3856.  bge .okt
  3857.  move.w leftclipb,d6
  3858.  sub.w d2,d6
  3859.  move.w d6,offleftby
  3860.  add.w d2,d6
  3861. .okt:
  3862.  
  3863.  st drawit
  3864.  add.w d6,d6
  3865.  lea (a4,d6.w*8),a4
  3866.  asr.w #1,d6
  3867.  cmp.w Left(pc),d6
  3868.  bge.s .nonewtop
  3869.  move.w d6,Left
  3870. .nonewtop
  3871.  
  3872.  sub.w d3,d5    ; dy
  3873.  swap d3
  3874.  clr.w d3    ; d2=xpos
  3875.  sub.w d2,d4    ; dx > 0
  3876.  ext.l d4
  3877.  swap d5
  3878.  clr.w d5
  3879.  divs.l d4,d5
  3880.  moveq #0,d2
  3881.  move.b 2(a1),d2
  3882.  ifne CHEESEY
  3883.  asr.w #1,d2
  3884.  endc
  3885.  moveq #0,d6
  3886.  move.b 6(a1),d6
  3887.  ifne CHEESEY
  3888.  asr.w #1,d6
  3889.  endc
  3890.  sub.w d6,d2
  3891.  swap d2
  3892.  swap d6
  3893.  clr.w d2
  3894.  clr.w d6    ; d6=xbitpos
  3895.  divs.l d4,d2
  3896.  move.l d5,a5    ; a5=dy constant
  3897.  move.l d2,a6    ; a6=xbitconst
  3898.  
  3899.  moveq #0,d5
  3900.  move.b 3(a1),d5
  3901.  ifne CHEESEY
  3902.  asr.w #1,d5
  3903.  endc
  3904.  moveq #0,d2
  3905.  move.b 7(a1),d2
  3906.  ifne CHEESEY
  3907.  asr.w #1,d2
  3908.  endc
  3909.  
  3910.  sub.w d2,d5
  3911.  swap d2
  3912.  swap d5
  3913.  clr.w d2    ; d3=ybitpos
  3914.  clr.w d5
  3915.  divs.l d4,d5
  3916.  
  3917.  move.w (a2,d1.w*2),d1
  3918.  move.w (a2,d0.w*2),d0
  3919.  sub.w d1,d0
  3920.  swap d0
  3921.  swap d1
  3922.  clr.w d0
  3923.  clr.w d1
  3924.  divs.l d4,d0
  3925.  
  3926.  add.w (a7)+,d4
  3927.  sub.w offleftby(pc),d4
  3928.  blt thislineflatgour
  3929.  
  3930.  tst.w offleftby(pc)
  3931.  beq.s .noneoffleft
  3932.  move.w d4,-(a7)
  3933.  move.w offleftby(pc),d4
  3934.  dbra d4,.calcnodraw
  3935.  bra .nodrawoffleft
  3936. .calcnodraw
  3937.  add.l d0,d1
  3938.  add.l a5,d3
  3939.  add.l a6,d6
  3940.  add.l d5,d2
  3941.  dbra d4,.calcnodraw
  3942. .nodrawoffleft:
  3943.  move.w (a7)+,d4
  3944. .noneoffleft:
  3945.  
  3946. .putinline:
  3947.  
  3948.  swap d3
  3949.  move.w d3,(a4)+
  3950.  swap d3
  3951.  move.l d6,(a4)+
  3952.  move.l d2,(a4)+
  3953.  swap d1
  3954.  move.w d1,(a4)
  3955.  addq #6,a4
  3956.  swap d1
  3957.  
  3958.  add.l d0,d1
  3959.  add.l a5,d3
  3960.  add.l a6,d6
  3961.  add.l d5,d2
  3962.  
  3963.  dbra d4,.putinline
  3964.  
  3965.  bra thislineflatgour
  3966.  
  3967. thislineontopgour:
  3968.  move.l #PolyTopTab,a4
  3969.  
  3970.  cmp.w rightclipb,d2
  3971.  bge thislineflatgour
  3972.  cmp.w leftclipb,d4
  3973.  ble thislineflatgour
  3974.  move.w rightclipb,d6
  3975.  sub.w d4,d6
  3976.  ble.s .clipr
  3977.  move.w #0,-(a7)
  3978.  cmp.w Right(pc),d4
  3979.  ble.s .nonewbot
  3980.  move.w d4,Right
  3981.  bra.s .nonewbot
  3982.  
  3983. .clipr
  3984.  move.w d6,-(a7)
  3985.  move.w rightclipb,Right
  3986.  sub.w #1,Right
  3987. .nonewbot:
  3988.  
  3989.  move.w #0,offleftby
  3990.  move.w d2,d6
  3991.  cmp.w leftclipb,d6
  3992.  bge .okt
  3993.  move.w leftclipb,d6
  3994.  sub.w d2,d6
  3995.  move.w d6,offleftby
  3996.  add.w d2,d6
  3997. .okt:
  3998.  
  3999.  st drawit
  4000.  add.w d6,d6
  4001.  lea (a4,d6.w*8),a4
  4002.  asr.w #1,d6
  4003.  cmp.w Left(pc),d6
  4004.  bge.s .nonewtop
  4005.  move.w d6,Left
  4006. .nonewtop
  4007.  
  4008.  sub.w d3,d5    ; dy
  4009.  swap d3
  4010.  clr.w d3    ; d2=xpos
  4011.  sub.w d2,d4    ; dx > 0
  4012.  ext.l d4
  4013.  swap d5
  4014.  clr.w d5
  4015.  divs.l d4,d5
  4016.  moveq #0,d2
  4017.  move.b 6(a1),d2
  4018.  ifne CHEESEY
  4019.  asr.w #1,d2
  4020.  endc
  4021.  moveq #0,d6
  4022.  move.b 2(a1),d6
  4023.  ifne CHEESEY
  4024.  asr.w #1,d6
  4025.  endc
  4026.  sub.w d6,d2
  4027.  swap d2
  4028.  swap d6
  4029.  clr.w d2
  4030.  clr.w d6    ; d6=xbitpos
  4031.  divs.l d4,d2
  4032.  move.l d5,a5    ; a5=dy constant
  4033.  move.l d2,a6    ; a6=xbitconst
  4034.  
  4035.  moveq #0,d5
  4036.  move.b 7(a1),d5
  4037.  ifne CHEESEY
  4038.  asr.w #1,d5
  4039.  endc
  4040.  moveq #0,d2
  4041.  move.b 3(a1),d2
  4042.  ifne CHEESEY
  4043.  asr.w #1,d2
  4044.  endc
  4045.  
  4046.  sub.w d2,d5
  4047.  swap d2
  4048.  swap d5
  4049.  clr.w d2    ; d3=ybitpos
  4050.  clr.w d5
  4051.  divs.l d4,d5
  4052.  
  4053.  move.w (a2,d1.w*2),d1
  4054.  move.w (a2,d0.w*2),d0
  4055.  sub.w d0,d1
  4056.  swap d0
  4057.  swap d1
  4058.  clr.w d0
  4059.  clr.w d1
  4060.  divs.l d4,d1
  4061.  
  4062.  add.w (a7)+,d4
  4063.  sub.w offleftby(pc),d4
  4064.  blt.s thislineflatgour
  4065.  
  4066.  tst.w offleftby(pc)
  4067.  beq.s .noneoffleft
  4068.  move.w d4,-(a7)
  4069.  move.w offleftby(pc),d4
  4070.  dbra d4,.calcnodraw
  4071.  bra .nodrawoffleft
  4072. .calcnodraw
  4073.  add.l d1,d0
  4074.  add.l a5,d3
  4075.  add.l a6,d6
  4076.  add.l d5,d2
  4077.  dbra d4,.calcnodraw
  4078. .nodrawoffleft:
  4079.  move.w (a7)+,d4
  4080. .noneoffleft:
  4081.  
  4082.  
  4083. .putinline:
  4084.  
  4085.  swap d3
  4086.  move.w d3,(a4)+
  4087.  swap d3
  4088.  move.l d6,(a4)+
  4089.  move.l d2,(a4)+
  4090.  swap d0
  4091.  move.w d0,(a4)
  4092.  addq #6,a4
  4093.  swap d0
  4094.  
  4095.  add.l d1,d0
  4096.  add.l a5,d3
  4097.  add.l a6,d6
  4098.  add.l d5,d2
  4099.  
  4100.  dbra d4,.putinline
  4101.  
  4102. thislineflatgour:
  4103.  addq #4,a1
  4104.  dbra d7,piglloop
  4105.  addq #4,a1
  4106.  rts
  4107.  
  4108. offleftby: dc.w 0
  4109. Left: dc.w 0
  4110. Right: dc.w 0
  4111.  
  4112. PointAndPolyBrights:
  4113.  ds.l 4*16
  4114.  
  4115.  
  4116. POINTER_TO_POINTERS: dc.l 0
  4117. START_OF_OBJ: dc.l 0
  4118. num_points: dc.w 0
  4119.  
  4120. POLYOBJECTS:
  4121.  ds.l 40
  4122. ; dc.l Spider_des
  4123. ; dc.l Medi_des
  4124. ; dc.l Exit_des
  4125. ; dc.l Crate_des
  4126. ; dc.l Terminal_des
  4127. ; dc.l Blue_des
  4128. ; dc.l Green_des
  4129. ; dc.l Red_des
  4130. ; dc.l Yellow_des
  4131. ; dc.l Gas_des
  4132. ; dc.l Torch_des
  4133.  
  4134. Spider_des:
  4135. ; incbin "ab3:vectobj/robot"
  4136.  incbin "ab3:vectobj/walllamp"
  4137.  
  4138. ;Medi_des:
  4139. ; incbin "ab3:vectobj/testgrill"
  4140. ;Exit_des:
  4141. ; incbin "ab3:vectobj/exitsign
  4142. ;Crate_des:
  4143. ; incbin "ab3:vectobj/droid"
  4144. ;Terminal_des:
  4145. ; incbin "ab3:includes/terminal.vec"
  4146. ;Blue_des:
  4147. ; incbin "ab3:vectobj/blueind"
  4148. ;Green_des:
  4149. ; incbin "ab3:vectobj/Greenind"
  4150. ;Red_des:
  4151. ; incbin "ab3:vectobj/Redind"
  4152. ;Yellow_des:
  4153. ; incbin "ab3:vectobj/yellowind"
  4154. ;Gas_des:
  4155. ; incbin "ab3:vectobj/gaspipe"
  4156. ;Torch_des:
  4157. ; incbin "ab3:vectobj/torch"
  4158.  
  4159. boxonscr:
  4160.  ds.l 250*2
  4161. boxrot: ds.l 3*250
  4162.  
  4163. boxbrights: 
  4164.     ds.w 250
  4165.  
  4166. boxang: dc.w 0 
  4167.  
  4168.  ds.w 320*4
  4169. PolyBotTab: ds.w 320*8
  4170.  ds.w 320*4
  4171. PolyTopTab: ds.w 320*8
  4172.  ds.w 320*4
  4173.  
  4174. offset:
  4175.  dc.w 0
  4176. timer:
  4177.  dc.w 0
  4178.  
  4179. Objects:
  4180. ; Lookup table for OBJECT GRAPHIC TYPE
  4181. ; in object data (offset 8)
  4182. ;0
  4183.  dc.l ALIEN_WAD,ALIEN_PTR,ALIEN_FRAMES,ALIEN_PAL
  4184. ;1
  4185.  dc.l PICKUPS_WAD,PICKUPS_PTR,PICKUPS_FRAMES,PICKUPS_PAL
  4186. ;2
  4187.  dc.l BIGBULLET_WAD,BIGBULLET_PTR,BIGBULLET_FRAMES,BIGBULLET_PAL
  4188. ;3
  4189.  dc.l UGLYMONSTER_WAD,UGLYMONSTER_PTR,UGLYMONSTER_FRAMES,UGLYMONSTER_PAL
  4190. ;4
  4191.  dc.l FLYINGMONSTER_WAD,FLYINGMONSTER_PTR,FLYINGMONSTER_FRAMES,FLYINGMONSTER_PAL
  4192. ;5
  4193.  dc.l KEYS_WAD,KEYS_PTR,KEYS_FRAMES,KEYS_PAL
  4194. ;6
  4195.  dc.l ROCKETS_WAD,ROCKETS_PTR,ROCKETS_FRAMES,ROCKETS_PAL
  4196. ;7
  4197.  dc.l BARREL_WAD,BARREL_PTR,BARREL_FRAMES,BARREL_PAL
  4198. ;8
  4199.  dc.l BIGBULLET_WAD,BIGBULLET_PTR,EXPLOSION_FRAMES,EXPLOSION_PAL
  4200. ;9
  4201.  dc.l GUNS_WAD,GUNS_PTR,GUNS_FRAMES,GUNS_PAL
  4202. ;10:
  4203.  dc.l MARINE_WAD,MARINE_PTR,MARINE_FRAMES,MARINE_PAL
  4204. ;11:
  4205.  dc.l BIGALIEN_WAD,BIGALIEN_PTR,BIGALIEN_FRAMES,BIGALIEN_PAL
  4206. ;12:
  4207.  dc.l 0,0,LAMPS_FRAMES,LAMPS_PAL
  4208. ;13:
  4209.  dc.l 0,0,WORM_FRAMES,WORM_PAL
  4210. ;14:
  4211.  dc.l 0,0,BIGCLAWS_FRAMES,BIGCLAWS_PAL
  4212. ;15:
  4213.  dc.l 0,0,TREE_FRAMES,TREE_PAL
  4214. ;16:
  4215.  dc.l 0,0,TOUGHMARINE_FRAMES,TOUGHMARINE_PAL
  4216. ;17:
  4217.  dc.l 0,0,FLAMEMARINE_FRAMES,FLAMEMARINE_PAL
  4218. ;18:
  4219.  dc.l 0,0,GLARE_FRAMES,0
  4220.  ds.l 4*20
  4221.  
  4222. GLARE_FRAMES:
  4223.  dc.w 0,0
  4224.  dc.w 32*4,0
  4225.  dc.w 32*4*2,0
  4226.  dc.w 32*4*3,0
  4227.  
  4228.  dc.w 0,32
  4229.  dc.w 32*4,32
  4230.  dc.w 32*4*2,32
  4231.  dc.w 32*4*3,32
  4232.  
  4233. ALIEN_WAD:
  4234. ; incbin "ALIEN2.wad"
  4235. ALIEN_PTR:
  4236. ; incbin "ALIEN2.ptr"
  4237. ALIEN_FRAMES:
  4238. ; walking=0-3
  4239.  dc.w 0,0
  4240.  dc.w 64*4,0 
  4241.  dc.w 64*4*2,0
  4242.  dc.w 64*4*3,0
  4243.  dc.w 64*4*4,0
  4244.  dc.w 64*4*5,0
  4245.  dc.w 64*4*6,0
  4246.  dc.w 64*4*7,0
  4247.  dc.w 64*4*8,0
  4248.  dc.w 64*4*9,0
  4249.  dc.w 64*4*10,0
  4250.  dc.w 64*4*11,0
  4251.  dc.w 64*4*12,0
  4252.  dc.w 64*4*13,0
  4253.  dc.w 64*4*14,0
  4254.  dc.w 64*4*15,0
  4255. ;Exploding=16-31
  4256.  dc.w 4*(64*16),0
  4257.  dc.w 4*(64*16+16),0
  4258.  dc.w 4*(64*16+32),0
  4259.  dc.w 4*(64*16+48),0
  4260.  
  4261.  dc.w 4*(64*16),16
  4262.  dc.w 4*(64*16+16),16
  4263.  dc.w 4*(64*16+32),16
  4264.  dc.w 4*(64*16+48),16
  4265.  
  4266.  dc.w 4*(64*16),32
  4267.  dc.w 4*(64*16+16),32
  4268.  dc.w 4*(64*16+32),32
  4269.  dc.w 4*(64*16+48),32
  4270.  
  4271.  dc.w 4*(64*16),48
  4272.  dc.w 4*(64*16+16),48
  4273.  dc.w 4*(64*16+32),48
  4274.  dc.w 4*(64*16+48),48
  4275. ;dying=32-33
  4276.  dc.w 64*4*17,0
  4277.  dc.w 64*4*18,0
  4278.  
  4279.  
  4280. ALIEN_PAL:
  4281. ; incbin "alien2.256pal"
  4282.  
  4283. PICKUPS_WAD:
  4284. ; incbin "Pickups.wad"
  4285. PICKUPS_PTR:
  4286. ; incbin "PICKUPS.ptr"
  4287. PICKUPS_FRAMES:
  4288. ; medikit=0
  4289.  dc.w 0,0
  4290. ; big gun=1
  4291.  dc.w 0,32
  4292. ; bullet=2
  4293.  dc.w 64*4,32
  4294. ; Ammo=3
  4295.  dc.w 32*4,0 
  4296. ;battery=4
  4297.  dc.w 64*4,0
  4298. ;Rockets=5
  4299.  dc.w 192*4,0
  4300. ;gunpop=6-16
  4301.  dc.w 128*4,0
  4302.  dc.w (128+16)*4,0
  4303.  dc.w (128+32)*4,0
  4304.  dc.w (128+48)*4,0
  4305.  dc.w 128*4,16
  4306.  dc.w (128+16)*4,16
  4307.  dc.w (128+32)*4,16
  4308.  dc.w (128+48)*4,16
  4309.  dc.w 128*4,32
  4310.  dc.w (128+16)*4,32
  4311.  dc.w (128+32)*4,32
  4312.  dc.w (64+16)*4,32
  4313.  dc.w (64*4),48
  4314.  dc.w (64+16)*4,48
  4315.  
  4316. ; RocketLauncher=20
  4317.  dc.w (64+32)*4,0
  4318.  
  4319. ;grenade = 21-24
  4320.  dc.w 64*4,32
  4321.  dc.w (64+16)*4,32
  4322.  dc.w (64+16)*4,48
  4323.  dc.w 64*4,48
  4324.  
  4325. ; shotgun = 25
  4326.  dc.w 128*4,32
  4327.  
  4328. ; grenade launcher =26
  4329.  dc.w 256*4,0
  4330.  
  4331. ; shotgun shells*4=27
  4332.  dc.w 64*3*4,32
  4333. ; shotgun shells*20=28
  4334.  dc.w (64*3+32)*4,0
  4335. ; grenade clip=29
  4336.  dc.w (64*3+32)*4,32
  4337.  
  4338.  
  4339. PICKUPS_PAL:
  4340. ; incbin "PICKUPS.256pal"
  4341.  
  4342. BIGBULLET_WAD:
  4343. ; incbin "bigbullet.wad"
  4344. BIGBULLET_PTR:
  4345. ; incbin "bigbullet.ptr"
  4346. BIGBULLET_FRAMES:
  4347.  dc.w 0,0
  4348.  dc.w 0,32
  4349.  dc.w 32*4,0
  4350.  dc.w 32*4,32
  4351.  dc.w 64*4,0
  4352.  dc.w 64*4,32
  4353.  dc.w 96*4,0
  4354.  dc.w 96*4,32
  4355.  
  4356.  dc.w 128*4,0
  4357.  dc.w 128*4,32
  4358.  dc.w 32*5*4,0
  4359.  dc.w 32*5*4,32
  4360.  dc.w 32*6*4,0
  4361.  dc.w 32*6*4,32
  4362.  dc.w 32*7*4,0
  4363.  dc.w 32*7*4,32
  4364.  dc.w 32*8*4,0
  4365.  dc.w 32*8*4,32
  4366.  dc.w 32*9*4,0
  4367.  dc.w 32*9*4,32
  4368. BIGBULLET_PAL
  4369. ; incbin "bigbullet.256pal"
  4370.  
  4371. EXPLOSION_FRAMES:
  4372.  dc.w 0,0
  4373.  dc.w 64*4,0
  4374.  dc.w 64*4*2,0
  4375.  dc.w 64*4*3,0
  4376.  dc.w 64*4*4,0
  4377.  dc.w 64*4*5,0
  4378.  dc.w 64*4*6,0
  4379.  dc.w 64*4*7,0
  4380.  dc.w 64*4*8,0
  4381.  
  4382. EXPLOSION_PAL
  4383. ; incbin "explosion.256pal"
  4384.  
  4385. UGLYMONSTER_WAD:
  4386. ; incbin "uglymonster.wad"
  4387. UGLYMONSTER_PTR:
  4388. ; incbin "uglymonster.ptr"
  4389. UGLYMONSTER_FRAMES:
  4390.  dc.w 0,0
  4391. UGLYMONSTER_PAL:
  4392. ; incbin "uglymonster.pal"
  4393.  
  4394. FLYINGMONSTER_WAD:
  4395. ; incbin "FLYINGalien.wad"
  4396. FLYINGMONSTER_PTR:
  4397. ; incbin "FLYINGalien.ptr"
  4398. FLYINGMONSTER_FRAMES:
  4399.  dc.w 0,0
  4400.  dc.w 64*4,0 
  4401.  dc.w 64*4*2,0 
  4402.  dc.w 64*4*3,0 
  4403.  dc.w 64*4*4,0 
  4404.  dc.w 64*4*5,0 
  4405.  dc.w 64*4*6,0 
  4406.  dc.w 64*4*7,0 
  4407.  dc.w 64*4*8,0 
  4408.  dc.w 64*4*9,0 
  4409.  dc.w 64*4*10,0 
  4410.  dc.w 64*4*11,0 
  4411.  dc.w 64*4*12,0 
  4412.  dc.w 64*4*13,0 
  4413.  dc.w 64*4*14,0 
  4414.  dc.w 64*4*15,0 
  4415.  dc.w 64*4*16,0 
  4416.  dc.w 64*4*17,0 
  4417.  dc.w 64*4*18,0 
  4418.  dc.w 64*4*19,0 
  4419.  dc.w 64*4*20,0 
  4420.  
  4421. FLYINGMONSTER_PAL:
  4422. ; incbin "FLYINGalien.256pal"
  4423.  
  4424. KEYS_WAD:
  4425. ; incbin "keys.wad"
  4426. KEYS_PTR:
  4427. ; incbin "KEYS.PTR"
  4428. KEYS_FRAMES:
  4429.  dc.w 0,0
  4430.  dc.w 0,32
  4431.  dc.w 32*4,0
  4432.  dc.w 32*4,32
  4433. KEYS_PAL:
  4434. ; incbin "keys.256pal"
  4435.  
  4436. ROCKETS_WAD:
  4437. ; incbin "ROCKETS.wad"
  4438. ROCKETS_PTR:
  4439. ; incbin "ROCKETS.ptr"
  4440. ROCKETS_FRAMES:
  4441. ;rockets=0 to 3
  4442.  dc.w 0,0
  4443.  dc.w 32*4,0
  4444.  dc.w 0,32
  4445.  dc.w 32*4,32
  4446.  
  4447. ;Green bullets = 4 to 7
  4448.  dc.w 64*4,0
  4449.  dc.w (64+32)*4,0
  4450.  dc.w 64*4,32
  4451.  dc.w (64+32)*4,32
  4452.  
  4453. ;Blue Bullets = 8 to 11
  4454.  dc.w 128*4,0
  4455.  dc.w (128+32)*4,0
  4456.  dc.w 128*4,32
  4457.  dc.w (128+32)*4,32
  4458.  
  4459.  
  4460. ROCKETS_PAL:
  4461. ; incbin "ROCKETS.256pal"
  4462.  
  4463. BARREL_WAD:
  4464. ; incbin "BARREL.wad"
  4465. BARREL_PTR:
  4466. ; incbin "BARREL.ptr"
  4467. BARREL_FRAMES:
  4468.  dc.w 0,0
  4469.  
  4470. BARREL_PAL: 
  4471. ;incbin "BARREL.256pal"
  4472.  
  4473. GUNS_WAD:
  4474. ; incbin "guns.wad"
  4475. GUNS_PTR:
  4476. ; incbin "GUNS.PTR"
  4477. GUNS_FRAMES:
  4478.  
  4479.  dc.w 96*4*20,0
  4480.  dc.w 96*4*21,0
  4481.  dc.w 96*4*22,0
  4482.  dc.w 96*4*23,0
  4483.  
  4484.  dc.w 96*4*4,0
  4485.  dc.w 96*4*5,0
  4486.  dc.w 96*4*6,0
  4487.  dc.w 96*4*7,0
  4488.  
  4489.  dc.w 96*4*16,0
  4490.  dc.w 96*4*17,0
  4491.  dc.w 96*4*18,0
  4492.  dc.w 96*4*19,0
  4493.  
  4494.  dc.w 96*4*12,0
  4495.  dc.w 96*4*13,0
  4496.  dc.w 96*4*14,0
  4497.  dc.w 96*4*15,0
  4498.  
  4499.  dc.w 96*4*24,0
  4500.  dc.w 96*4*25,0
  4501.  dc.w 96*4*26,0
  4502.  dc.w 96*4*27,0
  4503.  
  4504.  dc.w 0,0
  4505.  dc.w 0,0
  4506.  dc.w 0,0
  4507.  dc.w 0,0
  4508.  
  4509.  dc.w 0,0
  4510.  dc.w 0,0
  4511.  dc.w 0,0
  4512.  dc.w 0,0
  4513.  
  4514.  dc.w 96*4*0,0
  4515.  dc.w 96*4*1,0
  4516.  dc.w 96*4*2,0
  4517.  dc.w 96*4*3,0 
  4518.  
  4519. GUNS_PAL:
  4520. ; incbin "newgunsinhand.256pal"
  4521.  
  4522. MARINE_WAD:
  4523. ; incbin "newMarine.wad"
  4524. MARINE_PTR:
  4525. ; incbin "newMARINE.ptr"
  4526. MARINE_FRAMES:
  4527.  dc.w 0,0
  4528.  dc.w 64*4,0
  4529.  dc.w (64*2)*4,0
  4530.  dc.w (64*3)*4,0
  4531.  dc.w (64*4)*4,0
  4532.  dc.w (64*5)*4,0
  4533.  dc.w (64*6)*4,0
  4534.  dc.w (64*7)*4,0
  4535.  dc.w (64*8)*4,0
  4536.  dc.w (64*9)*4,0
  4537.  dc.w (64*10)*4,0
  4538.  dc.w (64*11)*4,0
  4539.  dc.w (64*12)*4,0
  4540.  dc.w (64*13)*4,0
  4541.  dc.w (64*14)*4,0
  4542.  dc.w (64*15)*4,0
  4543.  dc.w (64*16)*4,0
  4544.  dc.w (64*17)*4,0
  4545.  dc.w (64*18)*4,0
  4546. MARINE_PAL:
  4547. ; incbin "newmarine.256pal"
  4548. TOUGHMARINE_FRAMES:
  4549.  dc.w 0,0
  4550.  dc.w 64*4,0
  4551.  dc.w (64*2)*4,0
  4552.  dc.w (64*3)*4,0
  4553.  dc.w (64*4)*4,0
  4554.  dc.w (64*5)*4,0
  4555.  dc.w (64*6)*4,0
  4556.  dc.w (64*7)*4,0
  4557.  dc.w (64*8)*4,0
  4558.  dc.w (64*9)*4,0
  4559.  dc.w (64*10)*4,0
  4560.  dc.w (64*11)*4,0
  4561.  dc.w (64*12)*4,0
  4562.  dc.w (64*13)*4,0
  4563.  dc.w (64*14)*4,0
  4564.  dc.w (64*15)*4,0
  4565.  dc.w (64*16)*4,0
  4566.  dc.w (64*17)*4,0
  4567.  dc.w (64*18)*4,0
  4568. TOUGHMARINE_PAL:
  4569. ; incbin "toughmutant.256pal"
  4570. FLAMEMARINE_FRAMES:
  4571.  dc.w 0,0
  4572.  dc.w 64*4,0
  4573.  dc.w (64*2)*4,0
  4574.  dc.w (64*3)*4,0
  4575.  dc.w (64*4)*4,0
  4576.  dc.w (64*5)*4,0
  4577.  dc.w (64*6)*4,0
  4578.  dc.w (64*7)*4,0
  4579.  dc.w (64*8)*4,0
  4580.  dc.w (64*9)*4,0
  4581.  dc.w (64*10)*4,0
  4582.  dc.w (64*11)*4,0
  4583.  dc.w (64*12)*4,0
  4584.  dc.w (64*13)*4,0
  4585.  dc.w (64*14)*4,0
  4586.  dc.w (64*15)*4,0
  4587.  dc.w (64*16)*4,0
  4588.  dc.w (64*17)*4,0
  4589.  dc.w (64*18)*4,0
  4590. FLAMEMARINE_PAL:
  4591. ; incbin "flamemutant.256pal"
  4592.  
  4593.  
  4594. BIGALIEN_WAD:
  4595. ; incbin "BIGSCARYALIEN.wad"
  4596. BIGALIEN_PTR:
  4597. ; incbin "BIGSCARYALIEN.ptr"
  4598. BIGALIEN_FRAMES:
  4599. ; walking=0-3
  4600.  dc.w 0,0
  4601.  dc.w 128*4,0
  4602.  dc.w 128*4*2,0
  4603.  dc.w 128*4*3,0
  4604. BIGALIEN_PAL:
  4605. ; incbin "BIGSCARYALIEN.256pal"
  4606.  
  4607. LAMPS_FRAMES:
  4608.  dc.w 0,0
  4609. LAMPS_PAL:
  4610. ; incbin "LAMPS.256pal"
  4611.  
  4612. WORM_FRAMES:
  4613.  dc.w 0,0
  4614.  dc.w 90*4,0
  4615.  dc.w 90*4*2,0
  4616.  dc.w 90*4*3,0
  4617.  dc.w 90*4*4,0
  4618.  dc.w 90*4*5,0
  4619.  dc.w 90*4*6,0
  4620.  dc.w 90*4*7,0
  4621.  dc.w 90*4*8,0
  4622.  dc.w 90*4*9,0
  4623.  dc.w 90*4*10,0
  4624.  dc.w 90*4*11,0
  4625.  dc.w 90*4*12,0
  4626.  dc.w 90*4*13,0
  4627.  dc.w 90*4*14,0
  4628.  dc.w 90*4*15,0
  4629.  dc.w 90*4*16,0
  4630.  dc.w 90*4*17,0
  4631.  dc.w 90*4*18,0
  4632.  dc.w 90*4*19,0
  4633.  dc.w 90*4*20,0
  4634. WORM_PAL:
  4635. ; incbin "worm.256pal"
  4636.  
  4637. BIGCLAWS_FRAMES:
  4638.  dc.w 0,0
  4639.  dc.w 128*4,0
  4640.  dc.w 128*4*2,0
  4641.  dc.w 128*4*3,0
  4642.  dc.w 128*4*4,0
  4643.  dc.w 128*4*5,0
  4644.  dc.w 128*4*6,0
  4645.  dc.w 128*4*7,0
  4646.  dc.w 128*4*8,0
  4647.  dc.w 128*4*9,0
  4648.  dc.w 128*4*10,0
  4649.  dc.w 128*4*11,0
  4650.  dc.w 128*4*12,0
  4651.  dc.w 128*4*13,0
  4652.  dc.w 128*4*14,0
  4653.  dc.w 128*4*15,0
  4654.  dc.w 128*4*16,0
  4655.  dc.w 128*4*17,0
  4656. BIGCLAWS_PAL:
  4657. ; incbin "bigclaws.256pal"
  4658.  
  4659. TREE_FRAMES:
  4660.  dc.w 0,0
  4661.  dc.w 64*4,0
  4662.  dc.w 64*2*4,0
  4663.  dc.w 64*3*4,0
  4664.  
  4665.  dc.w 0,0
  4666.  dc.w 64*4,0
  4667.  dc.w 64*2*4,0
  4668.  dc.w 64*3*4,0
  4669.  
  4670.  
  4671.  dc.w 0,0
  4672.  dc.w 64*4,0
  4673.  dc.w 64*2*4,0
  4674.  dc.w 64*3*4,0
  4675.  
  4676.  
  4677.  dc.w 0,0
  4678.  dc.w 64*4,0
  4679.  dc.w 64*2*4,0
  4680.  dc.w 64*3*4,0
  4681.  
  4682.  dc.w 0,0
  4683.  dc.w 0,0
  4684.  
  4685.  dc.w 32*8*4,0
  4686.  dc.w 32*9*4,0
  4687.  dc.w 32*10*4,0
  4688.  dc.w 32*11*4,0
  4689.  
  4690. TREE_PAL:
  4691. ; incbin "tree.256pal"
  4692.  
  4693.  
  4694.  even
  4695. ObAdds:
  4696. ; incbin "ALIEN1.ptr"
  4697. objpal:
  4698. ; incbin "ALIEN1.256pal"
  4699. TextureMaps:
  4700.  dc.l 0
  4701. ; incbin "ab3:includes/newTexturemaps"
  4702. TexturePal:
  4703.  dc.l 0
  4704. ; incbin "ab3:includes/texture256pal"
  4705.  
  4706. testval: dc.l 0